как записать предпоследний элемент очереди в ячейку?

[taorange]

есть очередь, состоящая из целых чисел
pend - последний элемент
u - вспомогательный элемент
next - указатель на след. элемент
data - содержимое элемента

подскажите, как мне записать в ячейку содержимое предпоследнего элемента?
нужно делать через
if u^.next=pend then b:=u^.data; (так не работает, в a всегда ноль записывается) или как?

полный код программы в документе txt прилагается. ошибка в конце, при записи предпоследнего элемента в ячейку