建一个集合
var
s:set of 1 .. 9;
procedure row(var x:arr);
begin
for p:=1 to 9 do
repeat
  x[p]:=random(9)+1;
until not(x[p] in s);
s:=s+[x[p];
end;

表忘了加分呦~~~~~~~~

Program AddScore;
Var Rep:Set of 0..9
    Num:Array[1..9]of integer;
    Count:integer;
Begin
  Count:=1;Randomize;
  While Count<=9 do begin
    While Try(Num[Count])=FALSE then Num[Count]:=Random(9)+1;
    Count:=Count+1;
  end;
  for Count:=1 to 9 do write(Num[Count]);
End.

有个小错误，应为：
var
s:set of 1 .. 9;
procedure row(var x:arr);
begin
for p:=1 to 9 do
begin
  repeat
    x[p]:=random(9)+1;
  until not(x[p] in s);
  s:=s+[x[p];
end;
end;