Código Delphi [-] ... while A[Lo] > Pivot do Inc(Lo); while A[Hi] < Pivot do Dec(Hi); ...
... while A[Lo] > Pivot do Inc(Lo); while A[Hi] < Pivot do Dec(Hi); ...