Ошибка: Error (105)

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, Spin;//, REDAGUV;
 
type
 
  { TForm1 }
  test=record
       quest,a1,a2,a3,a4,a5: string[255];
       trueans: byte;
     end;
     PNode=^TNode;
     TNode=record
            next,prev: PNode;
            inf: test;
     end;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    GroupBox1: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    Panel1: TPanel;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
     private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
   mod1:boolean;
implementation
 uses tests;
{$R *.lfm}
     var f:file of test;zt:test;
{ TForm1 }
 procedure m_clear;
 begin with form1 do begin
   labelededit1.clear;
  labelededit2.clear;
  labelededit3.clear;
  labelededit4.clear;
  labelededit5.clear;
  labelededit6.clear;
  LabeledEdit1.Modified:=false;
 LabeledEdit2.Modified:=false;
 LabeledEdit3.Modified:=false;
 LabeledEdit4.Modified:=false;
 LabeledEdit5.Modified:=false;
 LabeledEdit6.Modified:=false;
 SpinEdit1.Modified:=false;
                         end;
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  m_clear;
  if mod1 then begin
     AssignFile(f,'file.data');
     reset(f);
     read(f,zt);
     with zt do begin
  labelededit1.Text:=quest;
  labelededit2.Text:=a1;
  labelededit3.Text:=a2;
  labelededit4.Text:=a3;
  labelededit5.Text:=a4;
  labelededit6.Text:=a5;
  spinedit1.value:=trueans;
                 end;
    button3.visible:=false;
  end
  else begin
       button1.hide;button2.hide;button4.hide;button5.hide;
       end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var f:file of test;zt:test;
   t,k: longint;
begin
AssignFile(f,'file.data');
reset(f);
k:=filesize('file.data');
t:= k div sizeof(test);
Seek(f,t);
with zt do
     begin
     quest:=LabeledEdit1.text;
     a1:=LabeledEdit2.text;
     a2:=LabeledEdit3.text;
     a3:=LabeledEdit4.text;
     a4:=LabeledEdit5.text;
     a5:=LabeledEdit6.text;
     trueans:=spinedit1.value;
     end;
write(f,zt);
CloseFile(f);
m_clear;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var zt: test;
    t: longint;
begin
t:=filepos(f);
if eof(f) then seek(f,filepos(f)-1) else
  begin
  while not eof(f) do begin
     read(f,zt);
     seek(f,filepos(f)-2);
     write(f,zt);
     seek(f,filepos(f)+1);
  end;
  end;
  truncate(f);
  seek(f,t-1);
  if eof(f) then seek(f,t-2);
  read(f,zt);
  with zt do
  begin
  Form1.labelededit1.Text:=quest;
  Form1.labelededit2.Text:=a1;
  Form1.labelededit3.Text:=a2;
  Form1.labelededit4.Text:=a3;
  Form1.labelededit5.Text:=a4;
  Form1.labelededit6.Text:=a5;
  Form1.spinedit1.value:=trueans;
  end;
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if mod1 then CloseFile(f);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  if not eof(f) then  begin
     read(f,zt);
     with zt do begin
     labelededit1.Text:=quest;
     labelededit2.Text:=a1;
     labelededit3.Text:=a2;
     labelededit4.Text:=a3;
     labelededit5.Text:=a4;
     labelededit6.Text:=a5;
     spinedit1.value:=trueans;
     end;
  end
  else ShowMessage('Кінець.');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if filepos(f)>1 then begin
   seek(f,filepos(f)-2);
   read(f,zt);
     with zt do begin
     labelededit1.Text:=quest;
  labelededit2.Text:=a1;
  labelededit3.Text:=a2;
  labelededit4.Text:=a3;
  labelededit5.Text:=a4;
  labelededit6.Text:=a5;
  spinedit1.value:=trueans;
                 end;
  end
  else ShowMessage('Початок.');
end;
 
end.

CloseFile(f);

   seek(f,filepos(f)+1);

   write(f,zt);

  Seek(f,t-1);
  if EOF(f) then Seek(f,t-2);