[Fazotron]

Задача заключается в этом: создать двумерный массив случайных чисел и вывести его d StringGrid. Я сделал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var m,n,i,j :integer;
    a:  array of array of real;
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;

Setlength(a,m,n);

for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(10);

for i:=1 to m do
for j:=1 to n do
StringGrid1.Ctlls[j-1,i-1]:=FloatToStr(a[i,j]);


end;

Но выдает ошибку цпу при нажатии на Button1. В чем может быть проблема?