Процедура быстрой сортировки

procedure QuickSort(var 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
     while A[Lo] < Pivot do Inc(Lo) ;
     while A[Hi] > Pivot do Dec(Hi) ;
     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;

quicksort(a,0, HIGH(a));
 
 
for i:=1 to 20 do
  begin
    Append(f2);
    writeln(f2,a[i]);
  end;
 
closeFile(f2);
 
with form1.Canvas do
  begin
    x:=0;
    y:=550;
    for i:=1 to 20 do
      begin
        rectangle(x,y,x+20,y-a[i]);
        TextOut(x,y,IntToStr(a[i]));
        x:=x+30;
      end;
    for i:=1 to 20 do
      begin
        m1:=a[i]; n1:=i;
        for k:=i to 20 do
          begin
            if a[k]<m1 then
              begin
                m1:=a[k];
                n1:=k;
              end;
          end;
        s:=a[i];
        a[i]:=a[n1];
        a[n1]:=s;
      end;
 
end;

Append(f2);
writeln(f2,'');
for i:=1 to 20 do
writeln(f2,' ',a[i]);