Пирамидальная сортировка

Procedure HeapSort(a: array of Integer);
Procedure ShiftDown(a: array of Integer; i,j: integer);

Procedure HeadSort(var a: array of Integer);
var
i,temp,len: Integer;
//Описываем локальную процедуру, подробнее читайте в книге Библия Delphi
procedure ShiftDown(var a: array of Integer; var i,j: integer);
var
Left,Right,MaxChild,temp: Integer; //по идеи так
begin
left:=2*i+1;
right:=left+1;
MaxChild:=left;
While MaxChild < j Do 
begin
if Right < j then
begin
if a[left] < a[right] then MaxChild:=right;
if a[i]<a[MaxChild] then 
begin
temp:=a[i];
a[i]:=a[MaxChild];
a[MaxChild]:=temp;
end;
end
else break;
i:=MaxChild;
left:=2*i+1;
right:=left+1;
MaxChild:=left;
end;
end;
begin
len:=Length(a);
For i:=Round(len/2)-1 Downto 0 do 
ShiftDown(a,i,len);
 
for i:=len-1 DownTo 1 Do 
begin
temp:=a[0];
a[0]:=a[i];
a[i]:=temp;
ShiftDown(a,0,i);
end;
end;

procedure HeapSort(var List: Array of integer; min, max: integer);
var
  i, tmp: integer;
  //
  procedure HeapPushDown(var List: Array of integer; min, max: Longint);
  var
    tmp, j: Longint;
  begin
    tmp := List[min];
    repeat // Repeat infinitely.
      j := 2 * min;
      if (j > max) then
        break // Done. Past end of heap.
      else
      begin
        // Make j the larger of the children.
        if (j < max) then
          if (List[j + 1] > List[j]) then
            j := j + 1;
 
        if (List[j] > tmp) then
        begin
          // A child is bigger. Swap with child.
          List[min] := List[j];
          // Push down beneath that child.
          min := j;
        end
        else
          // The parent is bigger. We're done.
          break;
      end;
    until (False);
    List[min] := tmp;
  end;
//
 
begin
  for i := (max + min) div 2 downto min + 1 do
    HeapPushDown(List, i, max);
 
 
  for i := max downto min + 1 do
  begin
 
    HeapPushDown(List, min, i);
 
    tmp := List[min];
    List[min] := List[i];
    List[i] := tmp;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Mas: array[1..20] of integer;
  i: Integer;
begin
  Randomize;
 
  for i := 1 to 20 do
    begin
      Mas[i] := Random (100) - 25;
      memo1.Lines.Add(IntToStr(Mas[i]));
    end;
 
    HeapSort(Mas, 0, 20);
 
    for i := 1 to 20 do
    begin
      memo2.Lines.Add(IntToStr(Mas[i]));
    end;
 
end;