[Страдалецъ]

Код:

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
 AMid: Array[0..4] of Extended;
begin
 Randomize;
 for i:=0 to 4 
 do begin
     for j:=0 to 4 
     do begin      
         M[i,j]:=Random(9)+1;
         SG.Cells[j,i]:=FloatToStr(M[i,j]);
         end;
     AMid[i] := Mean(M[i]);
     end;
  LabeledEdit1.Text := FloatToStr(Mean(AMid));
end;