代码：
procedure create;
var
x,y:integer;
begin
repeat
x:=getrandom(1,4);
y:=getrandom(1,4);
until num[x,y]=0;
num[x,y]:=2;
end;
Getrandom代码：
function Getrandom(min,max:integer):longint;
begin
randomize;
Getrandom:=random(max-min)+min;
end;
为什么会错啊在线等

艾特:@Fallen_Breath @猎火电脑工作室 @赛尔号玩家① @曟_IIIV @风x千叶翔龙V
求牛，牪，犇，大神们帮帮我

217也只是正常的运行错误，只是fp没显示出来而已，仔细检查一下代码或者F4大法什么的把错误弄出来就行了

怎么老有人艾特我。。我什么也不会

你的getrandom写得有问题，这里附上一个供你参考：
Function getrandom(down,up:longint):longint;
begin
if up<down then exit;
randomize;
exit(down+trunc((up-down+1)*random));
end;