Создать новый текстовый файл, записав в него перевернутые строки исходного файла

var f,g: text;
    s,ss: string;
    i: byte;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
while not (eof(f)) do
      begin
      ss:='';
      readln(f,s);
      for i:=1 to length(s) do
          ss:=s[i]+ss;
      writeln(g,ss);
      end;
close(f);
close(g);
end.

var f,g:text;
    s,s1:string;
    i:byte;
begin
assign(f,'text1.txt');
reset(f);//открываем файл для чтения(файл в папке с программой)
assign(g,'text2.txt');
rewrite(g);//создаем файл для записи
while not eof(f) do//пока не конец файла
 begin
  readln(f,s);//читаем строки
  s1:='';//создаем перевернутую строку
  for i:=length(s) downto 1 do
  s1:=s1+s[i];
  writeln(g,s1);//пишем в новый файл
 end;
close(f);//закрываем файлы
close(g);
write('Файл переписан');
end.

uses crt;
var f,g: text;
    s,sp: string;
    i: byte;
begin
assign(f,'C:\in.txt');
assign(g,'C:\out.txt');
reset(f);
rewrite(g);
while not (eof(f)) do
      begin
      sp:='';
      readln(f,s);
      for i:=1 to length(s) do
          sp:=s[i]+sp;
      writeln(g,sp);
      end;
close(f);
close(g);
end.