Написать программу, которая считает средний балл

begin
summ1:=0;
summ:=0;
for z:=2 to 7 do
    begin
     //summ:=0;
     //summ1:=0;
   for i:=1 to 10 do  begin
      if Length(StringGrid1.Cells[z-1,i])<>0
      then a[z-1]:=StrToInt (StringGrid1.Cells[z-1,i])
      else a[z-1]:=0;
 
      summ:=summ+a[z-1];
      summ1:=summ1+summ;
  end;
end;
sr:=summ/60;
      StringGrid1.Cells[7,11]:=FloatToStr(sr);
      end;

procedure TForm1.Button3Click(Sender: TObject);
var
a:real;
i,z: integer;
sr,sr1: real;
summ: real;
begin
summ:=0;
for z:=1 to 6 do
    begin
   for i:=1 to 10 do  begin
      if Length(StringGrid1.Cells[z,i])<>0
      then a:=StrToInt (StringGrid1.Cells[z,i])
      else a:=0;
 
      summ:=summ+a;
  end;
end;
sr:=summ/60;
StringGrid1.Cells[7,11]:=FloatToStr(sr);
end;

procedure TForm1.Button4Click(Sender: TObject);
var min, summ: real;
  i,j:integer;
  a: array [1..10] of real;
  afam: array [1..10] of string;
begin
for i := 1 to 10 do begin
  summ:=0;
  for j := 1 to 6 do begin
     summ:= summ+StrToInt (StringGrid1.Cells[j,i]) ;
  end;
  a[i]:=summ/6;
  afam[i]:=StringGrid1.Cells[0,i];
end;
min:=10;
for i := 1 to 10 do begin
  if a[i]<min then begin
    min:=a[i];
    label3.Caption:=afam[i];
  end;
end;
end;