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:

unit URandomQuickSort;

interface

procedure RandomQuickSort(var A: array of Integer);

implementation

procedure RandomQuickSort(var A: array of Integer);

  procedure RQSort(LoIndex, HiIndex: Integer);
  var
    Lo, Hi: Integer;
    Pivot: Integer;
    Swap: Integer;
  begin

    { Zufallsstrategie:
      Sei das Pivot-Element stets ein zufällig
      gewähltes Element der Liste }

    Pivot := A[LoIndex + Random(HiIndex - LoIndex)];//nr1. woher wieß das programm, dass sich highindex auf die länge des arrays "A" bezieht? ist doch nirgendwo deklariert oder? also sowas wie highindex:=higth(A) oder so

    { Der Rest wie gehabt! }

    Lo := LoIndex;   //ok, das versteh ich: am anfang ist Lo der kleinste wert im array, und Hi der höchste.
    Hi := HiIndex;
    repeat
      while A[Lo] < Pivot do Inc(Lo); // auch klar. solange er nix gefunden hat, sucht er halt weiter.
      while A[Hi] > Pivot do Dec(Hi);
      if Lo <= Hi then 
      begin
        Swap := A[Lo];
        A[Lo] := A[Hi]; //wenn ich das richtig verstanden habe, funktioniert das so: wenn diese beiden variablen sich getroffen haben, tauschen die sozusagen platz, dh jetzt is hi unten und lo oben...
        A[Hi] := Swap;
        Inc(Lo);
        Dec(Hi);
      end;
    until Lo > Hi;  //Das heißt, dass er solange diese while schleife macht, bis er was gefunden hat nehm ich mal an.
    if LoIndex < Hi then RQSort(LoIndex, Hi);  //ok, da hab  ich kein plan was gemeint  is. wär nett wenn man mir das erklären könnte :-)
    if Lo < HiIndex then RQSort(Lo, HiIndex);
  end;

begin
  RQSort(Low(A), High(A)); //auch kein plan.
end;

initialization
  Randomize;

end.					

1:

RQSort(Low(A), High(A));					

1:
2:

if LoIndex < Hi then RQSort(LoIndex, Hi);
if Lo < HiIndex then RQSort(Lo, HiIndex);