Описать процедуру, присваивающую параметру среднюю цену из непустого прейскуранта

type cena = record
                 r,c: integer;
                 end;
       arr = array [1..5] of cena;
var p: arr;
     mincena: cena;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;
 
type
  cena = record
    t: string;
    r,c: integer;
    end;
  arr = array [1..5] of cena;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid2: TStringGrid;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  p: arr;
  mincena: cena;
  i: integer;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;
  StringGrid1.Cells[0,0]:='N';
  StringGrid1.Cells[1,0]:='Товар';
  StringGrid1.Cells[2,0]:='Руб.';
  StringGrid1.Cells[3,0]:='Коп.';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  StringGrid1.Cells[0,i]:=IntToStr(i);
  StringGrid1.Cells[1,i]:=Edit1.Text;
  StringGrid1.Cells[2,i]:=Edit2.Text;
  StringGrid1.Cells[3,i]:=Edit3.Text;
  p[i].t:=Edit1.Text;
  p[i].r:=StrToInt(Edit2.Text);
  p[i].c:=StrToInt(Edit3.Text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
type
  cena1 = record
    r1,c1: integer;
end;
var
  mincena: cena1;
  k,rub,kop: integer;
begin
  for k:=1 to i do
    rub:=(StrToInt(StringGrid1.Cells[2,1])+StrToInt(StringGrid1.Cells[2,2])+StrToInt(StringGrid1.Cells[2,3])+StrToInt(StringGrid1.Cells[2,4])+StrToInt(StringGrid1.Cells[2,5])) div 5;
   for k:=1 to i do
    kop:=(StrToInt(StringGrid1.Cells[3,1])+StrToInt(StringGrid1.Cells[3,2])+StrToInt(StringGrid1.Cells[3,3])+StrToInt(StringGrid1.Cells[3,4])+StrToInt(StringGrid1.Cells[3,5])) div 5;
  StringGrid2.Cells[0,0]:=IntToStr(rub);
  StringGrid2.Cells[1,0]:=IntToStr(kop);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;
 
end.

begin
 rub:=0;
 kop:=0;
  for k:=1 to i do
    rub:=rub + p[i].r;
   for k:=1 to i do
    kop:=kop + p[i].c;
  rub:=rub div 5;
  kop:=kop div 5;
// копейки в рубли  
 if kop > 99  then
   begin
     rub:=rub + round(int(kop/100));
     kop:= round(frac(kop/100)*100);
   end;
 StringGrid2.Cells[0,0]:=IntToStr(rub);
 StringGrid2.Cells[1,0]:=IntToStr(kop);
   end;

procedure max(var p1:cena) ;
var
 k: integer;
begin
p1.r:=0;
 p1.c:=0;
  for k:=1 to i do
    p1.r:=p1.r + p[i].r;
   for k:=1 to i do
    p1.c:=p1.c + p[i].c;
  p1.r:=p1.r div 5;
  p1.c:=p1.c div 5;
   if p1.c > 99  then
   begin
    p1.r:=p1.r + round(int(p1.c/100));
    p1.c:= round(frac(p1.c/100)*100)
   end;
end;

procedure TForm1.Button2Click(Sender: TObject)

procedure TForm1.Button2Click(Sender: TObject)
begin
 max(mincena);
  StringGrid2.Cells[0,0]:=IntToStr(mincena.r);
  StringGrid2.Cells[1,0]:=IntToStr(mincena.c);
end;

var
i: integer;
begin
if SaveDialog1.Execute then
begin
  AssignFile(F,SaveDialog1.FileName);
  if FileExists(SaveDialog1.FileName) then
      if MessageDlg('Файл с таким именем уже существует.Перезаписать?',mtConfirmation,[mbYes,mbNo],0)=mrNo then exit;
  rewrite(F,SaveDialog1.FileName);//Создание файла
  i:=1;
  while i<>StringGrid1.RowCount -1 do
  begin
    mincena.t:=StringGrid1.Cells[1,i];
   mincena.r:=StringGrid1.Cells[2,i];
   mincena.c:=StringGrid1.Cells[3,i];
   write(F,mincena);
   inc(i);
   end;
  CloseFile(F);  
  end;

var
i: integer;
begin // открытие файла
  if OpenDialog1.Execute and FileExists(OpenDialog1.Filename) then
  begin // связываем имя файла с файловой переменной
    AssignFile(F, OpenDialog1.Filename);
    reset(F);
    i := 1;
    while not eof(F) do
    begin
      read(F, mincena);
      StringGrid1.Cells[1, i] := mincena.t;
      StringGrid1.Cells[2, i] := mincena.r;
      StringGrid1.Cells[3, i] :=mincena.c;
      inc(i);
    end;
       CloseFile(F);
  end  else  ShowMessage('Файл отсутствует');

type
  cena = record
    t: string;
    r,c: integer;
    end;

type
  cena = record
    t: string[15];
    r,c: integer;
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  i := StringGrid1.Row;
  StringGrid1.Cells[0, i] := IntToStr(i);
  StringGrid1.Cells[1, i] := Edit1.Text;
  StringGrid1.Cells[2, i] := Edit2.Text;
  StringGrid1.Cells[3, i] := Edit3.Text;
  p[i].t := Edit1.Text;
  p[i].r := StrToInt(Edit2.Text);
  p[i].c := StrToInt(Edit3.Text);
  i := i + 1;                              
  StringGrid1.Row:=StringGrid1.Row+1;   // добавить
end;

p1.r := p1.r div 5;
  p1.c := p1.c div 5;
  if p1.c > 99 then
  begin
    p1.r := p1.r + round(int(p1.c / 100));
    p1.c := round(frac(p1.c / 100) * 100)
  end;

 if p1.c > 99 then
  begin
    p1.r := p1.r + round(int(p1.c / 100));
    p1.c := round(frac(p1.c / 100) * 100)
  end;
p1.r := p1.r div 5;
p1.c := p1.c div 5;

procedure TForm1.Button1Click(Sender: TObject);
begin
  i := StringGrid1.Row;
  StringGrid1.Cells[0, i] := IntToStr(i);
  StringGrid1.Cells[1, i] := Edit1.Text;
  StringGrid1.Cells[2, i] := Edit2.Text;
  StringGrid1.Cells[3, i] := Edit3.Text;
  p[i].t := Edit1.Text;
  p[i].r := StrToInt(Edit2.Text);
  p[i].c := StrToInt(Edit3.Text);
  i := i + 1;
  if StringGrid1.Row < StringGrid1.RowCount-1 then StringGrid1.Row := StringGrid1.Row+1 // остановиться на последей сроке
  else StringGrid1.Row:=1 // а если добавишь эту строчку то будет идти по кругу
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  i := StringGrid1.RowCount;
  max(mincena);
  StringGrid2.Cells[0, 0] := IntToStr(mincena.r);
  StringGrid2.Cells[1, 0] := IntToStr(mincena.c);
end;

type
  cena = record
    t: string[15];
    r, c: integer;
  end;
  arr = array [1 .. 5] of cena;
var
 p: arr;

for k := 1 to i-1 do
  begin
    p1.r := p1.r + p[k].r;
    p1.c := p1.c + p[k].c;
  end;
 
 p[i].t := Edit1.Text;
  p[i].r := StrToInt(Edit2.Text);
  p[i].c := StrToInt(Edit3.Text);
 
 p[j].t := mincena.t;
      StringGrid1.Cells[2, j] := IntToStr(mincena.r);
      p[j].r := mincena.r;
      StringGrid1.Cells[3, j] := IntToStr(mincena.c);
      p[j].c := mincena.c;

procedure max(var p1:cena; f:ff);

procedure max(var p1:cena; var f:ff);