[Delphi] Algorytm sortowania - Heap-sort

Witam

Poszukuję algorytmu Heap-sort - najlepiej w Delphi :), w innych językach też. Może ktoś posiada gotowy, sprawdzony i chciałby się podzielić.

Dzięki i pozdrawiam

GOOGLE
http://dada.perl.it/shootout/heapsort.delphi.html

Gwoli ścisłości. Algorytm sortowania stogowego jest jeden. Jego implementacji jest wiele.