[hsMapk]

Код:

var
  Form1: TForm1;
  M:array[0..4,0..4] of Double;
  MAX,i,j: Integer;
  SREDN: Double;

implementation

{$R *.dfm}

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

end.

Считать не хочет и в Едит выводит 0. Помогите