1:
2:
3:
4:
5:

type
  CarRec = record
    name: String;
    length: Integer;
end;					

1:

Auto = Array[1..1000] of CarRec;					

1:

var MeinAuto: Auto;					

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

procedure QuickSort(A: Array of CarRec; iLo, iHi: Integer);
  var
    Lo, Hi, Mid: Integer;
  begin
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2].Height;
    repeat
      while A[Lo].Height < Mid do Inc(Lo);
      while A[Hi].Height > Mid do Dec(Hi);
      if Lo <= Hi then
      begin
        Exchange(A[Lo], A[Hi]);
        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;					

1:

Quicksort(MeinAuto,min,max);					

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

procedure Exchange(A,B:CarRec);
var TempAuto:CarRec;
begin
  TempCar:=A;
  A:=B;
  B:=TempCar;
end;