[Помогите!] Request сортировка методом Двоичнго Дерева (Pascal)

[FFForever]

Request сортировка чисел методом Двоичнго Дерева (Pascal)
Чем проще написано тем лучше.

[Рэйзор]

Называй проще - это сортировка методом хипа (кучи):
Это мое решение под делфи:

program HeatSort;
{$R+}
{$O-}
{$APPTYPE CONSOLE}
uses
  SysUtils;
var n,i,hs,s,y:longint;
    h,a: packed array[1..100000] of integer;
procedure siftup(i:longint);
begin
  if i=1 then
    exit;
  if h[i]<h[i div 2] then
    begin
      y:=h[i];
      h[i]:=h[i div 2];
      h[i div 2]:=y;
      siftup(i div 2);
    end;
end;
procedure Siftdown(i:longint);
begin
  if (2*i<=hs) and (h[2*i]<h[i]) then
    s:=2*i else
      s:=i;
  if (2*i+1<=hs) and (h[2*i+1]<h[s]) then
    s:=2*i+1;
  if s<>i then
    begin
      y:=h[s];
      h[s]:=h[i];
      h[i]:=y;
      siftdown(s);
    end;
end;
procedure Delete(i:longint);
begin
  h[i]:=h[hs];
  dec(hs);
  siftdown(i);
end;
procedure Add(x:longint);
begin
  inc(hs);
  h[hs]:=x;
  siftup(hs);
end;
begin
  reset(input,'input.txt');
  rewrite(output,'output.txt');
  read(n);
  hs:=0;
  for i := 1 to n do
    read(a[i]);
  for i := 1 to n do
    add(a[i]);
  for i := 1 to n do
    begin
      a[i]:=h[1];
      Delete(1);
    end;
  for i := 1 to n do
    write(a[i],' ');
end.

для паскаля убери:

{$R+}
{$O-}
{$APPTYPE CONSOLE}
uses
  SysUtils;

Самая простая реализация, работает за O(N*logN)
Вроде есть какая-то модифицированная версия, работающая за O(logN) - но я ее не знаю)

Если нужны другие типы сортировок - пиши.

Пы сы: если будет ругаться - сотри слово packed из var'а

[FFForever]

Цитата: Сообщение от Z.Рэйзор Называй проще - это сортировка методом хипа (кучи)

Проще это метод двоичного дерева
Во вторник затестю.

[Dzhakomaus]

Можете пожалуйста скинуть код такой же сортировки только в обратном порядке