Помогите доработать программу на Делфи

Помогите доработать программу на Делфи
Имеется текстовый файл. Переписать его строки в другой файл. Порядок строк во втором файле должен быть обратным по отношению к порядку строк в заданном файле.
наработки:
var g,t: Text;
smbtext: string;

begin
Assignfile(g,'g.txt');
Assignfile(t,'t.txt');
Reset(g);
Rewrite(t);
Readln(g, smbtext);
Writeln(t, smbtext);
CloseFile(g);
CloseFile(t);
end;

эта программа переписывает данные из файла g в текстовый файл t. как изменить порядок строк при записи во второй файл?

  • Э-э-э-э, какой мудила тебя так на дельфи учит писать?

    uses Classes;
    var sl1, sl2:TStringList;
    j:integer;
    begin
    sl1:=TStringList.Create;
    sl2:=TStringList.Create;
    try
    //Собственно следующие 3 строчки и есть вся программа, а не та хреномундия, которую ты намутил
    sl1.LoadFromFile('f.txt');
    for j:=sl.Count-1 downto 0 do sl2.Add(sl1[j]);
    sl2.SaveToFile('g.txt');
    finally
    sl1.Free;
    sl2.Free;
    end;
    end.

    Кстати, можно обойтись и одним стринглистом:
    for j:=1 to sl1.Count do begin sl1.Insert(0, sl1[sl1.Count-1]); sl1.Delete(sl1.Count-1); end;

  • переписывать строки обязательно? не проще скопировать и переименовать файл?