Задание на паскале.Файлы!

[Kuanishbai Kuat]

Создать файл, содержащий произвольные строки. Поменять строки файла так, чтоб их порядок был след:2,1,4,3,6,5...
Вывести на экран содержимое первоначального и измененного файлов.
Кто может решите буду благодарен.

[tresh]

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

[xakkkkker]

Вот примитив рабочий работает до 10 строк если увеличишь размерность массива будет и больше.

Program Forum1;
uses
 crt;
var
 Fil:Text;
 i,j:integer;
 Sn,Sk:array[1..10] of String; {Sn - это массив строк начальное, Sk- это массив строк конечное}
begin
 Assign(Fil,'Text1.txt');
 Reset(Fil);
 i:=0;
  while not(Eof(Fil)) do
   begin
    inc(i);
    Readln(Fil,Sn[i]);
   end;
  Close(Fil);
   If i mod 2 <>0 then
    begin 
     Writeln('Число строк не кратно 2');
     exit;	 
	end;
   j:=0;
  while j<>i do
   begin
    j:=j+2;
	Sk[j]:=Sn[j-1];
	Sk[j-1]:=Sn[j]
   end;
   Assign(Fil,'Text1.txt');
   Rewrite(Fil);
    For j:=1 to i do
	 Writeln(Fil,Sk[j]);
    Close(Fil);  
end.

[Kuanishbai Kuat]

Чет не работает((