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注释掉后可以运行 ，但是随机出来的数据老湿一样

randomize不注释出现问题

放的位置有问题，原本想写两重循环，结果就变成了两个单独的循环，你能分清楚语句块的范围不？
Randomize;只在最开始调用一次就好，不要放在循环里。

for i:=0 to a-1 do
randomize;
begin
==============
你自己看不出写的有什么不对么？没看出来的话建议去翻书看for语句