Массивы. Реализовать турнирную (пирамидальную) сортировку

uses
  crt;
 
var
  x: array[1..10000] of integer;
  I, q, w, n: integer;
 
procedure sort(l, r: integer);{l-левыйконецмасива,r-правыйконец}
var
  i, j, x1, y1, m: integer;
begin
  i := l;
  j := r;
  m := round((l + r) / 2);{среднийэлемент}
  x1 := x[m];
  repeat
    while x[i] > x1 do inc(i);{пока левый больше среднего, подвигоем левый край вправо }
    while x[j] < x1 do dec(j);{пока правый меньше среднего, подвигаем левый вправо}
    if i <= j then {если левый и правый срослись}
    begin
      y1 := x[i];
      x[i] := x[j];{меняем левый и правый}
      x[j] := y1;
      inc(i); {левый вправо}
      dec(j); {правый влево}
    end;
  until i > j;{конец одной перестановки}
  if l < j then sort(l, j);{рекурсивно сортируем}
  if i < r then sort(i, r);{илилевуюилиправуючасти}
end;
 
begin
  clrscr;
  readln;
  write('Vvedite razmer masiva: ');
  readln(n);
  write('Vvedite minimalnoe znachenie chisla v massive: ');
  readln(q);
  write('Vvedite maksimalnoe znachenie chisla v massive: ');
  readln(w);
  randomize;
  writeln('Ishodnii masiv: ');
  for i := 1 to n do
  begin
    x[i] := random(w - q) + q;
    write(x[i]:4);
  end;
  writeln;
  readln;
  sort(1, n);
  writeln('Nagmite Enter dlya sortirovki massiva ');
  readln;
  for i := 1 to n do
    write(x[i]:4);
  readln;
end.