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

// perfektes Mischen nach Fisher-Yates (angelehnt an einen Vorschlag von alzaimar)
procedure ShuffleFisherYates(var aArray: TArray);
  var
    i,j: Integer;
    tmp: TArrayElement;
begin
  // alle Elemente des Feldes durchlaufen
  for i := Low(aArray) to High(aArray) do begin
    // neue, zufällig Position bestimmen
    j := i +Random(Length(aArray) -i +Low(aArray));
    // Element Nr. i mit Nr. j vertauschen (3ecks-Tausch)
    tmp := aArray[j];
    aArray[j] := aArray[i];
    aArray[i] := tmp;
  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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

{$Apptype console}
uses
  sysutils;
const
  Runden = 100000000;// 1e8
var
  T1,T0: TDateTime;
  Karten : array[0..31] of integer;
  i,j,tp,MaxBisher,AnzRechts,cnt: integer;

procedure swap(i,j:integer);
var
  tmp : integer;
begin
  tmp:= Karten[i];
  Karten[i]:=Karten[j];
  Karten[j]:=tmp;
end;

begin
  T0 := time;
  randomize;
  For i := 0 to 31 do
    Karten[i] := i;
  AnzRechts:= 0;
  cnt := 0;
  For j := 1 to Runden do
    begin
    i := 31;
    tp := random(i+1);
    swap(tp,i);
    inc(cnt);
    inc(AnzRechts);
    MaxBisher := Karten[i];
    while MaxBisher <> 31 do
      begin
      inc(cnt);
      tp := random(i+1);
      swap(tp,i);
      IF  MaxBisher< Karten[i] then
        begin
        MaxBisher:= Karten[i];
        inc(AnzRechts);
        end;
      dec(i);
      end;
    end;
  T1 := time;
  writeln('Karten rechts     ',AnzRechts/Runden:10:7);
  writeln('Karten links      ',32-AnzRechts/Runden:10:7);
  writeln('Karten bis 32 kam ', cnt/Runden:10:7);
  writeln;
  writeln('Zeitdauer ',FormatdateTime('hh:mm:ss.zzz',T1-T0));
  readln;
end.
{
Karten rechts      4.0586284
Karten links      27.9413716
Karten bis 32 kam 16.9848054 // Sollte das nicht 16 sein? 

Zeitdauer 00:00:20.500}					

1:
2:
3:

type
  TArrayElement = Integer;
  TArray = array of TArrayElement;