"mischen"

[himitsu]

tausche doch einfach in einer Schleife immer zwei zufällige Karten.

Delphi-Quellcode:

for i := 1  to 1000 do begin
  i2 := random(18);
  i3 := random(18);
  TauscheKarten(i2, i3);
end;