Изменения

y = NIL x = head[H] min = inf while x <tex>\ne</tex> NIL do if key[x] < min then y = x x = sibling[x] return y