Даны файлы

[zia]

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

[Stilet]

Какого типа файлы?

[zia]

текстовые файлы (txt)

[Lardes]

procedure TForm1.Button1Click(Sender: TObject);
var
  StrF: TStringList;
  StrG: TStringList;
  I: Integer;
begin
  StrF := TStringList.Create;
  StrG := TStringList.Create;
  try
    StrF.LoadFromFile('f.txt');
    for I := StrF.Count - 1 downto 0 do
    begin
      StrG.Add(StrF.Strings[I]);
    end;
    StrG.SaveToFile('g.txt');
  finally
    StrF.Free;
    StrG.Free;
  end;
end;

zia, ты на каком курсе?)