как сделать чтоб у меня за зростанням выло например елементов 5 3 4 2 1 5 и оно так должно виводить 1 2 3 4 5

type
arr =array[0..50] of integer;
procedure svet(var q: arr; Count: integer);
procedure host(index, Count: integer; Current: integer);
var
i,k,r:integer;x:word;
begin
x:=q[i];
i:=i+1;
k:=2-1;
if (x < Count - 1) and (Q[x] < Q[x+ 1]) then
while (k<=r)and (Q[i]>x) do 
Begin
q [i]:=Q[k];
i:=k;
k:=2*k;
if Current >= q[x] then
break;
q[index] := q[x];
index := x;
end;
q[index] := Current;
end;
//Основная процедура
var
i: integer;
Current: integer;
begin 
// пирамидa
for i := (Count div 2) - 1 downto 0 do
host(i, Count, q[i]); 
//Пирамида собрана. Теперь сортировка
for i := Count downto 0 do 
 
begin
Current := q[i];
//перемищение верхушки в начало отсортированого списка
q[i] := q[0];
host(0, i, Current);
//находим нужное место в пирамиде для нового элемента.
end;
end;
//главная прогр.
var
q: arr; n, i: integer;
begin
write('Введите количесто элементов: =');
readln(n);
writeln('Введите элементы масива: =');
for i := 1 to n do
readln(q[i]);
svet(q, n);
write('Сортировка :a[i]:=');
for i := 1 to n do
write(q[i]:4);
readln
 
end.

type arr=array[0..10000] of integer;
procedure Sort(var A: arr; Count: Integer);
  procedure DownHeap(index, Count: integer; Current: integer);
  {Функция пробегает по пирамиде восстанавливая ее
  Также используется для изначального создания пирамиды
  Использование: Передать номер следующего элемента в index
  Процедура пробежит по всем потомкам и найдет нужное место для следующего элемента}
  var
    Child: Integer;
  begin
    while index < Count div 2 do
     begin
      Child := (index+1)*2-1;
      if (Child < Count-1) and (A[Child] < A[Child+1]) then
        Child:=Child+1;
      if Current >= A[Child] then
        break;
      A[index] := A[Child];
      index := Child;
    end;
    A[index] := Current;
  end;
 
{Основная функция }
var
  i: integer;
  Current: integer;
begin
  {Собираем пирамиду}
  for i := (Count div 2)-1 downto 0 do
    DownHeap(i, Count, A[i]);
  {Пирамида собрана. Теперь сортируем}
  for i := Count downto 0 do begin
    Current := A[i];{перемещаем верхушку в начало отсортированного списка}
    A[i] := A[0];
    DownHeap(0, i, Current);{находим нужное место в пирамиде для нового элемента}
  end;
end;
var a:arr;
    n,i:integer;
begin
randomize;
write('n=');
readln(n);
for i:=1 to n do
a[i]:=random(100);
Sort(a,n);
for i:=1 to n do
write(a[i]:4);
end.