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

[taorange]

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

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

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

[volvo]

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

Пробежаться по всей очереди, с самого начала, и найти тот элемент, у которого u^.next = pend. То, что ты делаешь - не имеет смысла, потому как U указывает на последний элемент очереди (ты же с помощью U добавляешь к очереди элемент, правда? И больше ничего и нигде в U не присваиваешь. Так что там хранится?)

if u^.next=pend then b:=u^.data; (так не работает

Правильно. Потому что это условие ни разу не выполняется. Не веришь? Проверяй:

if u^.next=pend then begin
  writeln('Переменная b теперь содержит нужное значение');
  b:=u^.data;
end;

Запусти и убедись, что никакой строки не печатается...