Source position: tpa.pas line 33
procedure QuickSort(
var A: TIntegerArray;
iLo: Integer;
iHi: Integer
);