Перезаписать из текстового файла f в файл g строки в обратном порядке,элементы перевернуты

program fails;
Var f,g:text;
    i,n:integer;
    st,st1:string;
begin
 assign(f,'f.txt');
 {$I-}
 reset(f);
 {$I+}
 assign(g,'g.txt');
 rewrite(g);
while not eof(f) do
begin
   st1:='';
   readln(f,st);
    for i:=1 to length(st) do
    st1:=st[i]+st1;
    writeln(g,st1);
   end;
 close(f);
 close(g);
end.

program fails;
 
var
  f, g: text;
  i, n: integer;
  st, st1: string;
  x: array [1..100] of string;
 
begin
  assign(f, 'f.txt');
  reset(f);
  n := 1;
  while not eof(f) do
  begin
    st1 := '';
    readln(f, st);
    for i := 1 to length(st) do
      st1 := st[i] + st1;
    x[n] := st1;
    inc(n);
  end;
  close(f);
  
  assign(g, 'g.txt');
  rewrite(g);
  for i := n - 1 downto 1 do
    writeln(g, x[i]);
  close(g);
end.

var
  f, g: text;
  i, j, n: integer;
  st, st1: string;
 
begin
  assign(f, 'f.txt');
  reset(f);
  n := 0;
  while not eof(f) do
    begin
      readln(f);
      inc(n)
    end;
  assign(g, 'g.txt');
  rewrite(g);
  for i := n downto 1 do
    begin
      reset(f);
      for j := 1 to i do readln(f, st);
      st1 := '';
      for j := length(st) downto 1 do st1 := st1 + st[j];
      writeln(g, st1)
    end;
  close(g);
  close(f)
end.

var
  f, g: file of char;
  i, n: longint;
  c: char;
 
begin
  assign(f, 'f.txt');
  reset(f);
  assign(g, 'g.txt');
  rewrite(g);
  n := filesize(f);
  repeat
    dec(n);
    seek(f, n);
    read(f, c)
  until not (c in [#13, #10]);
  if filesize(f) - n > 2 then n := filesize(f) - 3;
  for i := n downto 0 do
    begin
      seek(f, i);
      read(f, c);
      if c = #10
        then write(g, #13)
        else if c = #13
          then write(g, #10)
          else write(g, c)
    end;
  write(g, #13);
  write(g, #10);
  close(g);
  close(f)
end.