求帮助

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,i,j:integer;
Arr : array of array of integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
setlength(Arr,a-1,b-1) ;
for i:=0 to a-1 do
randomize;
begin
for j:=0 to b-1 do
begin
Arr[i,j]:=random(100) ;
showmessage(inttostr(Arr[0,2])) ;
end;
end;
end;
把randomize注释掉后可以运行 ，但是随机出来的数据老湿一样