Запись в файл в Delphi, нужна помощь

[s-t-r-i-k-e-r]

Как мне изменить NewFile или создать новую процедуру, чтобы
можно было добавлять информацию в файл.
Т.е я записал информацию, потом вызвал процедуру ещё раз и информация добавилась в конец файла

type ar1=array[1..10] of string;
ar2=array[1..10] of integer;
...
procedure InitArrays(var st: ar1; var num: ar2);
  var i: integer;
  begin
  for i:=1 to 10 do
    begin
    st[i]:='aaa'+IntToStr(i);
    num[i]:=i;
    end;
  end;

procedure NewFile(const st: ar1; const num: ar2);
  var f: TextFile;
  i: integer;
  begin
  AssignFile(f,'c:\res.txt');
   rewrite(f);
  for i:=1 to 10 do
    writeln(f,st[i],' ',IntToStr(num[i]));
  closeFile(f);
  end;


procedure TForm1.Button1Click(Sender: TObject);
var st: ar1;
  num: ar2;

begin
InitArrays(st,num);
NewFile(st,num);
end;

end.

Пробовал reset(f), убирая rewrite - не получилось, ошибка!

[eoln]

procedure NewFile(const st: ar1; const num: ar2);   
  var f: TextFile;   
  i: integer;   
  begin   
  AssignFile(f,'c:\res.txt');   
  if fileexists('c:\res.txt') then reset(f) else rewrite(f);   
  for i:=1 to 10 do   
    writeln(f,st[i],' ',IntToStr(num[i]));   
  closeFile(f);   
  end;

[B_N]

eoln, это Вы о чём? Я так понял, автор хочет дописывать что-то к существующему файлу.

s-t-r-i-k-e-r, не ReWrite, а Append.

[eoln]

Виноват, ошибся.

s-t-r-i-k-e-r, не ReWrite, а Append.

B_N, тоже не совсем то (файл может и не существовать)
s-t-r-i-k-e-r, не Reset, а Append. (пост 2 строка 7)

[s-t-r-i-k-e-r]

Спасибо большое, работает только последним способом

[B_N]

Сообщение от eoln

Виноват, ошибся.

B_N, тоже не совсем то (файл может и не существовать)
s-t-r-i-k-e-r, не Reset, а Append. (пост 2 строка 7)

Разумеется, если файл не существует, тогда с проверкой или через обработку ошибок. Теперь у автора все карты на руках, думаю, не запутается