Как поменять строки в текстовом файле местами

[_ares_]

Как поменять в текстовом файле такого рода
.-
-...
.--
--.
-..
.
...-
--..
..
.---
-.-
первую строку с последней, а вторую с прдпоследней и т.д.
{алгоритм не прет как надо(((}
for i:=1 to length(st) do begin
mas[i]:=st[i]; end;

for i:=1 to length(st) div 2 do
begin
tmp:=mas[i];
mas[i]:=mas[length(st)-i-1];
mas[length(st)-i-1]:=tmp;
end;
//где у меня st- строка символов, а mas-массив из этих строк.

[mihali4]

Запоминаем первую строку в переменной. Копируем последнюю на место первой. Записываем строку из переменной на место последней. И так далее.
А при чем тут цикл по символам?
Вроде работать надо только со строками?

[_ares_]

А в этом цикле работа идет по символам, а не по строкам. Так наверное легче.А copy как должна бать организована? Писани плиз.

Сообщение от _ares_

А в этом цикле работа идет по символам, а не по строкам. Так наверное легче.А copy как должна бать организована?
Писани плиз.

Как организовать работу copy именно со строками?

[rpy3uH]

допустим у тебя есть массив строк (mas) и количество элементов в нём (L), тогда

for i:=1 to L div 2  do
 begin
  tmp:=mas[i]; 
  mas[i]:=mas[L-i+1];
  mas[L-i+1]:=tmp;
 end;

[_ares_]

Сообщение от rpy3uH

допустим у тебя есть массив строк (mas) и количество элементов в нём (L), тогда

for i:=1 to L div 2  do
 begin
  tmp:=mas[i]; 
  mas[i]:=mas[L-i+1];
  mas[L-i+1]:=tmp;
 end;

Да в России то главная беда не олигофрены а глупцы. Аты все перепутал

[mihali4]

Сообщение от _ares_

Да в России то главная беда не олигофрены а глупцы. Аты все перепутал

Получить готовый оптимальный ответ на свой вопрос и сказать такое...
Ах ну да, ты же не глупец, ты - олигофрен.
Хохол, что ли?

[Abbatik]

Берешь текстовый файл.
Заносишь его в массив строк.
mas-массив
l-количество элементов.

...
for i:=1 to (l div 2) do begin
st:=mas[i];
mas[i]:=mas[l-i];
mas[l-i]:=st;
end;
...
st-левая string'овая переменная

[mihali4]

Сообщение от Abbatik

Берешь текстовый файл.
Заносишь его в массив строк.
mas-массив
l-количество элементов.

...
for i:=1 to (l div 2) do begin
st:=mas[i];
mas[i]:=mas[l-i];
mas[l-i]:=st;
end;
...
st-левая string'овая переменная

Грузин уже дал правильный вариант.
А у вас маленький недочет - вы не обрабатываете самую последнюю строку.

[Abbatik]

Сообщение от mihali4

Грузин уже дал правильный вариант.
А у вас маленький недочет - вы не обрабатываете самую последнюю строку.

Ну извини не увидел