Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный.

Assign(f1, 'textfile.txt');
Reset(f1);
Assign(f2, 'newfile.txt');
Rewrite(f2);
while not Eof(f1)
do begin
    ReadLn(f1, s); 
    s1 := s; 
    for i := 1 to Length(s)  
    do s1[i] := s[Length(s)-i];
    WriteLn(f2,s1); 
    end;  
Close(f1);
Close(f2);

var
f:text;
i,j,k:integer;
t:string;
a:array[1..100]of string;
begin
assign(f,'input.txt');
reset(f);
while not eof(f) do
begin
inc(k);
readln(f,a[k]);
end;
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to k do
begin
t:=a[i];
for j:= length(t) downto 1 do 
write(f,t[j]);
writeln(f);
end;
close(f);
end.

for i := 1 to Length(s)  
    do s1[i] := s[Length(s)-i+1];

program bret1;
var h, s: string;
     i: ineteger;
     f, g: TextFile;
begin
  assign(f,'Path')//Файл с нормальными строками
  reset(f);
  while not eof(f) do
  begin
    assing(g,'Path.txt')//Файл с перевернутами строками
    append(g);
    readln(f,s);
    h:='';
    for i:=length(s) downto 1 do
    h[i]:=h[i]+s[i];
    writeln(g, h);
    close(g);
  end;
close(f)  
end.

  for i:=1 to length(s) div 2 do
  begin
    c:=s[i];
    s[i]:=s[length(s)-i+1];
    s[length(s)-i+1]:=c
  end;