Пирамидальная сортировка массива по неубыванию

program pr;
 
type
  arr = array [1..10000] of longint;
 
var
  a: arr;
  n, i: longint;
 
procedure heapsort(var v: arr);
var
  L, R: longint;
  x: longint;
  procedure sift(L, R: longint);
  var
    i, j: longint; x: longint;
  begin
    i := L; j := 2 * L; x := a[L];
    if (j < R) and (a[j] < a[j + 1]) then j := j + 1;
    while (j <= R) and (x < a[j]) do 
    begin
      a[i] := a[j]; i := j; j := 2 * j;
      if (j < R) and (a[j] < a[j + 1]) then j := j + 1;
    end;
    a[i] := x
  end;
 
begin
  L := (n Div 2) + 1; R := n;
  while L > 1 do begin L := L - 1; sift(L, R) end;
  while R > 1 do 
  begin
    x := a[1]; a[1] := a[R]; a[R] := x; R := R - 1; sift(L, R)
  end;
end;
 
begin
  writeln('Введите количество элементов');
  readln(n);
  if n<=100000 then begin
  for i := 1 to n do
   read(a[i]);
  for i := 1 to n do
    write(a[i]:3);
  writeln;
  heapsort(a);
  for i := 1 to n do
    write(a[i]:3);
    end
    else writeln('n должно быть =< 10^5');
end.