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

function StringWuerfeln (s : string) : string;
var ch,
      ch2 : char;
      i,
      j   : integer;
  begin
    randomize;
     for i := 1 to length (s) do begin
       j := random (length (s)+1);   // zufällige Stelle im Wort, auf max. Länge achten
       if (i > 1) and (j > 1) then begin    // 1. Stelle lassen wie sie ist
         ch := s [j];                       // Buchstabe an der Stelle j (zufällig)
         ch2 := s [i];                      // alten Buchstaben sichern
         s [i] := ch;                       // alten durch zufälligen ersetzen
         s [j] := ch2;                     // neuen durch alten ersetzen
      end;
    end;
    StringWuerfeln := s;
  end;					

1:

J := 5000 + Random(1001);