Нужно поправить код

[SenFeron]

Помогите пожалуйста исправить код так чтоб он сортировал по Возрастанию в данном виде он сортирует по убыванию за ранние благодарю!!!
Это пирамидальная сортировка

procedure HeapSort(var m: mas; n: integer);
var
i,q,w,u: integer;

procedure Swap(var a,b:integer);
var
tmp: integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;

procedure Sort(Ns: integer);
var
i, tmp, pos, mid: integer;
begin
mid := Ns div 2;
for i := mid downto 1 do
begin
pos := i;
while pos<=mid do
begin
tmp := pos*2;
if tmp<Ns then
begin
if m[tmp+1]<m[tmp] then
tmp := tmp+1;
if m[pos]>m[tmp] then
begin
Swap(m[pos], m[tmp]);
pos := tmp;
end
else
pos := Ns;
end
else
if m[pos]>m[tmp] then
begin
Swap(m[pos], m[tmp]);
pos := Ns;
end
else
pos := Ns;
end;
end;
end;

begin
for i:=N downto 2 do
begin
Sort(i);
Swap(m[1], m[i]);
end;
end;

[Mad_Cat]

if m[tmp+1]<m[tmp] then
tmp := tmp+1;
if m[pos]>m[tmp]  then

знаки поменяй

if m[tmp+1]>m[tmp] then
tmp := tmp+1;
if m[pos]<m[tmp] then

[SenFeron]

Спасибо большое!!!Очень благодарен!!!