Составить программу формирования данных о товарах на складе

[Акаши]

Составить программу формирования данных о товарах на складе : номер по порядку, наименования товара, цена, кол-во ед товара. Организовать выбор пр наименованию товара и подсчитать стоимость этого наименования !!
Не могу организовать последнее на кнопку "Выборка" button5

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TStudent=record
  FIO:integer;
  otcm:string[50];
  otcf:integer;
  otcs:integer;
  end;

var
  Form1: TForm1;
   stud:array[1..50] of tstudent;
   stud1:tstudent;
   Fz:file of Tstudent;
   nzap,x,i:integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
Edit4.Text:=' ';
Memo1.clear;
nzap:=0;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
form1.close
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
assignfile(fz,'a.txt');
memo1.Clear;
rewrite(fz);
for i:=0 to nzap-1 do begin
seek(fz,i);
end;
closefile(fz);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
stud1.fio:=strtoint(edit1.Text);
stud1.otcm:=edit2.Text;
stud1.otcs:=strtoint(edit3.Text);
stud1.otcf:=strtoint(edit4.Text);

memo1.Lines.add(inttostr(stud1.fio)+' '+stud1.otcm+' '+inttostr(stud1.otcs)+' '+inttostr(stud1.otcf));
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
edit4.Text:=' ';
assignfile(fz,'a.txt');
memo1.Clear;
reset(fz);
x:=filesize(fz);
seek(fz,x);
write(fz,stud1);
closefile(fz);


end;


procedure TForm1.Button3Click(Sender: TObject);
begin
assignfile(fz,'a.txt');
memo1.Clear;
reset(fz);
while not eof(fz) do begin
read(fz,stud1);
memo1.Lines.add(inttostr(stud1.fio)+' '+stud1.otcm+' '+inttostr(stud1.otcf)+' '+inttostr(stud1.otcs));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
  begin
stud[nzap].fio:=strtoint(edit1.Text);
stud[nzap].otcm:=edit2.Text;
stud[nzap].otcf:=StrToInt (edit3.Text);
stud[nzap].otcs:=StrToInt (edit4.Text);
memo1.Lines.Add(inttostr(stud[nzap].fio)+' '+stud[nzap].otcm) ;
 edit1.Text:=' ';
  edit2.Text:=' ';
  edit3.Text:=' ';
  edit4.Text:=' ';
  nzap:=nzap+1;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
     assignfile(fz,'a.txt');
memo1.Clear;
reset(fz);
while not eof(fz) do
 begin
  read(fz,stud1);
  memo1.Lines.Add(stud1.fio+' '+inttostr(stud1.otcm)+' '+' '+inttostr(stud1.otcf)+' '+inttostr(stud1.otcs));
  end;
  closefile(fz);
end;

end.