Даны текстовый файл f. Записать в файл g элементы файла f

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Classes;
 
var f:textfile;
    t:TStringList;
    i,j:integer;
begin
t:=TStringList.Create;
t.LoadFromFile('input.txt');//файл в папке с программой
assignfile(f,'output.txt');
rewrite(f);
for i:=t.Count-1 downto 0 do
for j:=length(t[i])downto 1 do
write(f,t[i][j]);
closefile(f);
writeln('Fail input.txt perepisn v fail output,txt');
readln
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes, StrUtils;
 
var L: TStringList;
    i: integer;
 
begin
 L := TStringList.Create;
 L.LoadFromFile('input.txt');
 for i := 0 to L.Count - 1 do
  L.Strings[i] := ReverseString(L.Strings[i]);
 L.SaveToFile('output.txt');
 L.Free;
 writeln('Done!');
 readln;
end.

L.Text := ReverseString(L.Text);