for i := (n div 2) downto 1 do siftup(r,i,n);