Написать программу, преобразующую файл АВС.ТХТ в файл СВА.ТХТ, в котором все строки заменены на строки читаемые с конца к началу, например, строка PRIMER должна замениться на строку REMIRP. Содержимое файлов АВС.ТХТ и СВА.ТХТ выведите на экран- Pascal(Паскаль)

program primer;
uses crt;
var f,g:text;
s:string;
i:integer;
begin
clrscr;
assign(g,'C:\ABC.txt');
reset(g);
assign(f,'C:\CBA.txt');
rewrite(f);
while not eof(g) do
 begin
  readln(g,s);
  for i:=length(s) downto 1 do
  write(f,s[i]);
  writeln(f,'');
 end;
close(f);
close(g);
readkey;
end.

program primer;
uses crt;
var f,g:text;
s:string;
i:integer;
begin
clrscr;
assign(g,'C:\ABC.txt');
reset(g);
assign(f,'C:\CBA.txt');
rewrite(f);
writeln('Fail ABC:');
while not eof(g) do
 begin
  readln(g,s);
  writeln(s);
  for i:=length(s) downto 1 do
  write(f,s[i]);
  writeln(f,'');
 end;
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  writeln(s); 
 end; 
close(f);
close(g);
readkey;
end.