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

var
  zahlen: array[0..255] of boolean;
  i, j, zahl: integer;
begin
  for i := 0 to 255 do
    zahlen[i] := false;
  for j := 0 to 255 do  
  begin
    repeat
      zahl := random(256);
    until (zahlen[zahl] = false);
    zahlen[zahl] := true;

    writeln(inttostr(zahl));  // hier kommt die ausgabe, memo1.lines.add() oder so

  end;					

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

var  
  Zahl: array[0..255] of Integer;
  i,j,hilf: Integer;
begin  
  for i := 0 to 255 do // alle Zahlen erzeugen
    Zahl[i] := i;  
  for i := 0 to 255 do begin // durchschütteln
    j := Random(256);
    hilf := Zahl[i];
    Zahl[i] := Zahl[j];
    Zahl[j] := hilf;
  end;
  for i := 0 to 255 do // ausgeben
    Memo1.Lines.Add(IntToStr(Zahl[i]));					

1:
2:
3:
4:
5:
6:

For I := 0 to Count-1 do begin  
  J := I+random(Count-I);  
  T := A[J];  
  A[J] := A[I];  
  A[I] := T;  
end;