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

end;

procedure TForm3.BitBtn3Click(Sender: TObject); //Процедура вычисления среднемесячного заработка
begin
error:='Вы ввели неверные данные!!!';
k:=0;
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
ShowMessage(error);
else s:=s/k;
end;
edit2.text:=floattostr (s);
end;