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:

// Quelle http://www.stefan-baur.de/cs.algo.quicksort.html
procedure QuickSort(var A: array of Integer);

  procedure QSort(LoIndex, HiIndex: Integer);
  var
    Lo, Hi: Integer;
    Pivot: Integer;
    Swap: Integer;
  begin
    // Wähle stets das mittlere Element als Pivotelement.
    Pivot := A[(LoIndex + HiIndex) div 2];

    // Stelle die Ordnung bzgl. des Pivotelements her.
    Lo := LoIndex;
    Hi := HiIndex;
    repeat
      while A[Lo] < Pivot do Inc(Lo);
      while A[Hi] > Pivot do Dec(Hi);
      if Lo <= Hi then
      begin
        Swap := A[Lo];
        A[Lo] := A[Hi];
        A[Hi] := Swap;
        Inc(Lo);
        Dec(Hi);
      end;
    until Lo > Hi;

    // Gegebenenfalls linke Teilliste sortieren.
    if LoIndex < Hi then QSort(LoIndex, Hi);

    // Gegebenenfalls rechte Teilliste sortieren.
    if Lo < HiIndex then QSort(Lo, HiIndex);
  end;                    

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:

type
  TNums = Array[0..1000] of Integer;
  pArray = ^TNums;
  pPivot = ^Integer;

...

procedure TForm1.QuickSort(A: array of Integer; iLo, iHi: Integer) ;
var
  Lo, Hi, Pivot, T: Integer;
begin
  Lo := iLo;
  Hi := iHi;
  Pivot := A[(Lo + Hi) div 2];
  repeat
    Lo := SortLeft(@A,@Pivot,iLo);
    Hi := SortLeft(@A,@Pivot,iHi);
    if Lo <= Hi then
    begin
      T := A[Lo];
      A[Lo] := A[Hi];   
      A[Hi] := T;
      Inc(Lo) ;
      Dec(Hi) ;
    end;
  until Lo > Hi;
  if Hi > iLo then QuickSort(A, iLo, Hi) ;
  if Lo < iHi then QuickSort(A, Lo, iHi) ;
end;

Function TForm1.SortLeft(  ar : pArray;  Pivot :pPivot; Pos : Integer) : Integer;
var va,vb : Integer;
begin
  va := ar[Pos];
  vb := Pivot^;
 if va < vb then SortLeft(ar,Pivot,Pos+1)
 else
  Result:= Pos;
end;

Function TForm1.SortRight(ar : pArray; Pivot :pPivot; Pos : Integer) : Integer;
var va,vb : Integer;
begin
  va := ar[Pos];
  vb := Pivot^;
 if va > vb then SortLeft(ar,Pivot,Pos-1)
 else
  Result:= Pos;
end;