1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

var zue:array[1..10]of integer;
d,u:integer;
begin
randomize;
for u:=1 to 10 do

  begin


  zue[u]:=random(10);

  end;
for u:=1 to 10 do

  begin

  for d:=1 to 10 do
   begin
     if (zue[u]=zue[d])and (d<>u)
     then
     begin
        repeat
        zue[u]:=random(10)

        until (zue[u])<>(zue[d]);



     end;


   end;

   end;

u:=1;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure zufall;
  var arr:array[1..10]of integer;
  i,j,x:integer;
  label jump;
begin
  randomize;
  for i:=1 to 10 do begin
    jump:
    x:=random(10)+1;
    for j:=1 to i-1 do if x = arr[j] then goto jump;
    arr[i]:=x;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure zufallarray(var zufallarr:array of integer;laenge:integer);
var kontrollarray:array [0..11] of boolean;
    i,zufall:integer;

begin
for i:= 0 to (laenge-1) do
    begin
    kontrollarray[i]:=false;                //Vorbelegen als Nicht markiert
    end;
randomize;
i:=0;
while (i<=(laenge-1)) do
      begin
      zufall:=random(laenge);
      if (kontrollarray[zufall]=false) then  //Wenn Zahl noch nicht erzeugt
         begin
         zufallarr[i]:=zufall;
         kontrollarray[zufall]:=true;        //Zahl als erzeugt markieren
         inc(i);                             //Nächste Zahl
         end;
      end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Const
 Count = 10;
Var
 A : Array[0..Count-1] of Integer;
 I, J, T : Integer;
begin
 For I := 0 to Count-1 do
  A[I] := I;
 For I := 0 to Count-1 do
 begin
  J := I+random(Count-I);
  T := A[J];
  A[J] := A[I];
  A[I] := T;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Abweichungen des Mittelwertes zum Erwartungswert bei 30'000'000 Auswertungen:

Vorher:
0: Abweichung: -0.38117515
1: Abweichung: -0.22602511
2: Abweichung: -0.09327648
3: Abweichung: 0.01631218
4: Abweichung: 0.09955808
5: Abweichung: 0.15273031
6: Abweichung: 0.17332643
7: Abweichung: 0.15728608
8: Abweichung: 0.10131005
9: Abweichung: 0.00008742

Nachher (ca. 50% drüber, 50% drunter => tip top):
0: Abweichung: 0.00021398
1: Abweichung: 0.00028029
2: Abweichung: -0.00018273
3: Abweichung: -0.00013189
4: Abweichung: 0.00023619
5: Abweichung: -0.00017557
6: Abweichung: -0.00030752
7: Abweichung: 0.00041279
8: Abweichung: -0.00018368
9: Abweichung: -0.00016186					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

randomize;
  for g:=1 to k do
  begin
   hilfsarr[g]:=g;
  end;

 for g:=1 to k do

    begin
      z[g]:=random(k)+1;
     while (hilfsarr[z[g]]=0) do begin
      Z[g]:=random(k)+1; end;

    hilfsarr[z[g]]:=0;

    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.FormActivate(Sender: TObject);
var d:integer;
begin
  randomize;
  for g:=1 to 10 do

   begin

     z[g]:=random(10)+1;

         for d:=1 to 10 do
          begin

           while (((z[g])=(z[d]))and (d<>g)) do
           begin

              z[g]:=random(10)+1;


           end;

          end;



   end;
   g:=1;
end;