Дан текстовый файл f. Скопировать его содержимое в файл g таким образом, чтобы каждая строка была записана в обратном порядке, с сохранением порядка строк — Pascal(Паскаль)

const
 namef1='f1.txt';
 namef2='f2.txt';
var
  f1,f2:file of char;
  s:string;
  b:char;
  i:integer;
begin
 writeln('Vvedit text:');writeln;
 
 s:='1';
 assignfile(f1,namef1);
 rewrite(f1);
 while(s<>'')do
 begin
   readln(s);
   if s='' then break;
   for i:=1 to length(s) do begin
     write(f1,s[i]);
   end;
   b:=chr(13);
   write(f1,b);
   b:=chr(10);
   write(f1,b);
 
 end;
 closefile(f1);
 
 
 assignfile(f2,namef2);
 assignfile(f1,namef1);
 reset(f1);
 rewrite(f2);
 seek(f1,filesize(f1)-1);
 while(filepos(f1)<>0)do begin
   read(f1,b);
   case(ord(b))of
     13: b:=chr(10);
     10: b:=chr(13);
   end;
   seek(f1,filepos(f1)-2);
   write(f2,b);
 end;
   read(f1,b);
   write(f2,b);
 closefile(f1);
 closefile(f2);
 
 writeln;
 assignfile(f2,namef2);
 reset(f2);
 while(not eof(f2))do begin
   read(f2,b);
   write(b);
 end;
 close(f2);
 
 readln
end.