[Camaro]

ViRTaCe, mrcnn, спасибо вам, что откликнулись.
ViRTaCe, да, надо мне внимательней быть. На самом деле выглядит глупо.
mrcnn, спасибо большое за код, правда там одна строка в конце выпала - присвоение Head значения p - но это, вероятно, механическая ошибка. Теперь всё работает