Записать в перевернутом виде строки файла F в файл G

program prog;
 
var
  i: integer;
  ch: char;
  F, G: file of char;
begin
  Assign(F, 'f.txt');
  Reset(F);
 
  Assign(G, 'g.txt');
  Rewrite(G);
 
  for i:= FileSize(F) - 1 downto 0 do
  begin
    Seek(F, i);
    Read(F, ch);
    Write(G, ch);
  end;
 
  Close(F);
  Close(G);
end.

program prog;
 
uses
  strutils;
 
type
  pNode = ^Node;
  Node = record
    data: string;
    next: pNode;
  end;
 
//-------------
procedure StackPush(var stackp: pNode; data: string);
var
  newp: pNode;
begin
  New(newp);
  newp^.data:= data;
  newp^.next:= stackp;
  stackp:= newp;
end;
 
//-------------
procedure StackPop(var stackp: pNode);
var
  p: pNode;
begin
  p:= stackp^.next;
  Dispose(stackp);
  stackp:= p;
end;
 
//-------------
var
  line: string;
  F, G: textfile;
  stack: pNode = nil;
begin
  Assign(F, 'f.txt');
  Reset(F);
 
  while not EOF(F) do
  begin
    ReadLn(F, line);
    StackPush(stack, ReverseString(line));
  end;
 
  Close(F);
  Assign(G, 'g.txt');
  Rewrite(G);
 
  while stack <> nil do
  begin
    WriteLn(G, stack^.data);
    StackPop(stack);
  end;
 
  Close(G);
end.