Zahlen nur einmal vorkommen lassen

[Reap3r]

Ich hab mir überlegt das ganze so zu gestalten, aber irgendwas stimmt nicht.

Delphi-Quellcode:

 var a: array [1..13] of integer;
 var i, x, j : integer; ok: boolean;
begin
 fori:=1 to 13 do
  begin
   x:= random(13)+1;
   ok:= true;
   for j:=1 to 13 do
    if x = a[j]
     then ok:= false;
   if ok then a[i] := x;
end;
end;