[lmikle]

Есть подозрение, что она либо падает, либо уходит в бесконечный цикл (если список не циклический):

Вот это:

Код:

while p1^.next<>top do begin

должно быть:

Код:

while p1^.next<>nil do begin