[BEPAI]

Gracias ecfisa,

Código Delphi [-]
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;

Casimiro Notevi

¿Qué problema tienes?

No entiendo como funciona.