[Страдалецъ]

С чего вы решили, что при открытии с помощью Reset файл будет открываться только для чтения? Вот вам пример который дописывает в конец:

Код:

program Project26;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Type
  TRec = record
   S: String[20];
   I: Integer;
  end;
Var
  F: File of TRec;
  R: TRec;
begin
 AssignFile(f, 'c:\test.txt');
 {$I-} Reset(f); {$I+}
 if IOResult <> 0
 then Rewrite(f)
 else Seek(f, FileSize(F));
 R.S := 'Hello';
 R.I := FileSize(F)+1;
 Write(f, R);
 CloseFile(f);
end.