Проблема с типизированным файлом

var
  MainForm: TMainForm;
  f: File of integer; // файл
  fName: String[80]; // имя файла
 
procedure TMainForm.Button2Click(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
  fName:=OpenDialog.FileName;
  AssignFile(f, fName);
  Append(f); //В этом операторе несоответствие форматов.
  //добавляем данные в файл
  CloseFile(f);
  end;
end;

Append(f);

  if OpenDialog.Execute then
  begin
  fName:=SaveDialog.FileName;
  AssignFile(f, fName);
  Rewrite(f); //Открываем файл для создания или перезаписи
  //добавляем данные в файл
  CloseFile(f);
  end;

reset(f);
seek(filesize(f));//новая запись будет последней.
write(f,a);

procedure TForm1.Button1Click(Sender: TObject);
var f1: textfile;  f2:file of integer;
    rasx, dox, day, month, year, balans: integer;
begin
  assignfile (f1, 'file1.txt');
  assignfile (f2, 'file2.dat');
   reset (f1);
   read (f1, balans);
   closefile(f1);
  rewrite (f1);
   rasx:=StrToInt(Edit2.Text);
   dox:=StrToInt(Edit1.Text);
   write (f1, balans+dox-rasx);
  closefile (f1);
  reset (f2);
   seek(f2, filesize(f2)); /// хочу поставить курсор в конец
   day:=StrToInt(Edit3.Text);
   month:=StrToInt(Edit4.Text);
   year:=StrToInt(Edit5.Text);
   write (f2, day, month, year, dox, rasx);
  closefile (f2)
  label1.caption:='Разница = '+IntToStr(dox-rasx);
  label2.caption:='Баланс = '+IntTostr (dox-rasx+balans);  
end;

var f1: textfile;
    f2: file of integer;
    rasx, dox, day, month, year, balans: integer;
begin
  assignfile (f1, 'file1.txt');
   reset (f1);
   read (f1, balans);
 
  rewrite (f1);
   rasx:=StrToInt(Edit2.Text);
   dox:=StrToInt(Edit1.Text);
   write (f1, balans+dox-rasx);
  closefile (f1);
 
  assignfile (f2, 'file2.dat');
  reset (f2);
   seek(f2, filesize(f2)); /// хочу поставить курсор в конец
   day:=StrToInt(Edit3.Text);
   month:=StrToInt(Edit4.Text);
   year:=StrToInt(Edit5.Text);
   write (f2, day, month, year, dox, rasx);
  closefile (f2);
  label1.caption:='Разница = '+IntToStr(dox-rasx);
  label2.caption:='Баланс = '+IntTostr (dox-rasx+balans);
end;

var
...
  //Файл объявлен, как типизированный файл, элементами которого являются данные типа Integer.
  //Это означает, что минимальной единицей обмена информации с файлом являются
  //блоки размером SizeOf(Integer) = 4 байта.
  f2 : file of integer;
...
begin
  //Второй параметр процедуры Seek() задаёт смещение относительно начала файла.
  //Это смещение исчисляется в минимальных блоках - т. е. в элементах типа Integer.
  //Поэтому, чтобы переместить файловый указатель в конец файла необходимо заменить строку:
  //seek(f2, filesize(f2));
  //на:
  seek(f2, filesize(f2) div SizeOf(Integer));