Помогите дописать программу формирования данных о товарах на складе: номер по порядку, наименование, цена, кол-во (Delphi)

[Акаши]

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

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,c,m:integer;
   k: string;
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
k:=edit2.Text;
stud[nzap].otcf:=StrToInt(edit3.Text);
stud[nzap].otcs:=StrToInt(edit4.Text);
assignfile(fz,'a.txt');
memo1.Clear;
reset(fz);
 begin
  read(fz,stud1);
  memo1.Lines.Add(k+' '+stud[nzap].otcf);
  end;
  closefile(fz);
end;

end.

Осталось только все подсчитать стоимость этого наименования !!

[Stilet]

Стоимость чего? Студента??
Ты где этот код спер, у какого работорговца?

[Акаши]

неее мы делали на подобие программу в кабинете и сказали переделать

[Stilet]

Ну ты хотя бы можешь описать структуру для товара наподобие той что у тебя в примере?

[Акаши]

там просто нужно , что выбрал по наименованию посчитать сумму цены и все

[Serge_Bliznykov]

что есть "сумма цены"?

допустим, у Вас
1. Ручка шариковая цена 25 количество 10
2. Карандаш ТМ цена 30 количество 5
3. Карандаш М2 цена 10 количество 4

Ввели "Ручка шариковая". Что должна выдать программа?
Ввели "Карандаш". Что должна выдать программа?

[Акаши]

Ввели Ручка шариковая цена 25 количество 10 , должно выдать "Ручка шариковая 250". если в файле будет еще одна Ручка шариковая то и ее должно подсчитать вместе с тем что было подсчитано

[Акаши]

Я вот написал программу она считает каждый товар, как исправить чтобы он подсчитывал допустим "Болт " и чтобы он кол-во с ценой подсчитал еще все болты тоже суммировал