Problem in Pascal!

[Neg]

Delphi-Quellcode:

var
  i, j, rnd: integer;
  Zahl: Array[1..n, 1..n] of integer;
  SchonVerwendet: Set of integer;

begin
  SchonVerwendet:=[];

  for i:=1 to n do
    for j:=1 to n do
    begin
      repeat
        rnd:=Random(9)+1;
      until not (rnd in SchonVerwendet);

      Include(SchonVerwendet, rnd);
      Zahl[i,j]:=rnd;
    end;
end;

Pass aber auf, dass n*n <= 9, sonst hängt der Algorithmus in einer endlosen Schleife. Logisch.