Вот допустим
Код:
Procedure readStack(Var u : EXST; Var i : integer);
Var
x : EXST;
Begin
i := u^.Data; {считываем значение поля данных в переменную}
x := u; {запоминаем адрес вершины стека}
u := u^.Next; {переносим вершину стека на следующий элемент}
dispose(x); {освобождаем память, занятую уже ненужным элементом стека}
End.
Я так понимаю, что при применении такой процедуры мы потеряем элемент стека, но для его сохранения мы можем перед
u := u^.Next; {переносим вершину стека на следующий элемент}
занести этот элемент во второй стек .
Или я не прав ?