Отладка программы

[ЭД4-0014]

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

текст программы:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
cf=record
nomer:string[5];
veshi:string[5];
ves:string[5];
end;
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Memo1: TMemo;
Button3: TButton;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
fp:file of cf;
pole:cf;
nomer:cf ;
tmp1:cf;
tmp2:cf;
veshi:cf;
ves:cf;
mveshi:cf;
mnomer:cf;
mves:cf;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile (fp,'c:\baza.baz');
rewrite(fp);
closefile(fp);
showmessage ('Файл создан');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
assignfile(fp,'c:\baza.baz');
reset(fp);
seek(fp,filesize(fp));
pole.nomer:=edit1.text;
pole.veshi:=edit2.text;
pole.ves:=edit3.text;
write(fp,pole);
filesize(fp);
closefile(fp);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
assignfile(fp,'c:\baza.baz');
reset(fp);
read(fp,nomer);
mnomer:=nomer;
mveshi:=veshi;
mves:=ves;
while not eof(fp) do begin
read(fp,nomer,veshi,ves);
if (veshi>=mveshi)and (ves>=mves) then begin
mnomer:=nomer;
mveshi:=veshi;
mves:=ves;
memo1.Lines.Append(inttostr(veshi)) ;
memo2.Lines.Append(inttostr(ves));
end;
end;
closefile(fp);
end;
end.