В хаотическом порядке получить числа 1-100

[Sibedir]

Почитав
http://mazanu.com/2008/11/blog-post_20.html
теперь всю жизнь буду делать так

var
  Arr: array [1..100] of Byte;
  i, j: Integer;
  b: Byte;
begin
  for i := 1 to 100 do
    Arr[i] := i;
  Randomize;
  for i := 1 to 99 do begin
    j := 100 - Random (101-i);
    b := Arr[i];
    Arr[i] := Arr[j];
    Arr[j] := b;
  end;
  Memo1.Lines.Clear;
  for i := 1 to 100 do
    Memo1.Lines.Add (IntToStr (Arr[i]));
end;

Вот 2 программки, которые наглядно показывают распределение вероятностей при тусовке карт по способу из поста #12 и вновьпредложенному:
Тусование карт.zip