Pascal/Turbo Pascal - Contador QuickSort

hola que tal, tengo un pequeño problemita para poner un contador al algoritmo del quicksort, ya que como es recursivo se reinicializa varias veces durante el proceso, a ver si alguien puede ayudarme por favor.
Gracias

Pasa como parámetro el valor anterior del contador :).
No solamente recursivo se puede hacer el QuickSort.