Procedure QUICKSORT(var V: Vettore; Inf, Sup: Integer);
var
   I, J: Integer;
   Perno: Elemento;
begin
   if(Inf < Sup) then
      begin
         I:=Inf;
         J:=Sup;
         Perno:=V[(Inf+Sup) DIV 2];
         repeat
            while(V[I] < Perno) do
               Inc(I);
            while(Perno < V[J]) do
               Dec(J);
            If(I <= J) then
               begin
                  SCAMBIA(V[I], V[J]);
                  Inc(I);
                  Dec(J);
               end;
         until(I > J);
         QUICKSORT(V, Inf, J);
         QUICKSORT(V, I, Sup);
      end;
end;