var
  Form3: TForm3;
  int: integer;     // Вводим переменные
  s:real;
  k:integer;
  error:string;

implementation

{$R *.dfm}


procedure TForm3.BitBtn1Click(Sender: TObject);     // Начало процедуры обработки щелчка
begin
 error:='Вы ввели неверные данные!!!';
 ShowMessage(error);
 for int:=1 to 4 do begin
 if  Stringgrid1.Cells[3,int]=edit1.text
 then s:=s+strtofloat( Stringgrid1.Cells[2,int]);
 end;
 edit2.text:=floattostr (s);

end;



procedure TForm3.BitBtn2Click(Sender: TObject);  // Процедура очистки данных из полей
begin
edit1.clear;
edit2.clear;
end;

procedure TForm3.BitBtn3Click(Sender: TObject);  //Процедура вычисления среднемесячного заработка
begin
error:='Вы ввели неверные данные!!!';
 ShowMessage(error);
for int:=1 to 4 do begin
if Stringgrid1.Cells[3,int]=edit1.text
then
begin
k:=k+1;
s:=s+strtofloat( Stringgrid1.Cells[2,int]);
end;
if(int=4)
then
if k=0 then
s:=0
else s:=s/k;
end;
edit2.text:=floattostr (s);
end;