В текстовом файле перевернуть каждую строку

program 1;
var
   f,h:text;
   i,n:integer;
   s:string;
   c:char;
begin
     assign(f,'file1.txt');
     reset(f);
     assign(h,'file2.txt');
     rewrite(h);
     while not eof(f) do
     begin
          readln(f,s);
          n:=length(s) div 2;
          for i:=1 to n do
          begin
               c:=s[i];
               s[i]:=s[length(s)-i+1];
               s[length(s)-i+1]:=c;
          end;
          writeln(h,s);
     end;
     close(f);
     close(h);
end.

var f:file of string;
     s:string;
     i:integer;
......................
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,s);
  //обрабатываем
  seek(f,i);
  write(f,s);
 end;

uses crt;
var f:file of char;
    s:string;
    i,k:integer;
    c: char;
begin
     assign(f,'file.txt');
     reset(f);
     s:='';
for i:=filesize(f)-1 downto 0 do begin
 seek(f,i);
  read(f,c);
  s:=s+c;;
  end;
  seek(f,0);
for i:=1 to length(s) do begin
    write(s[i]);
    write(f,s[i]);
end;
close(f);
end.