Помогите, пожалуйста, с задачкой! Заклинило, никак не соображу.
Как считать элемент из стека, не удаляя его из стека?
Для этого в стеке делается функция Top... В FAQ-е если реализация. Что-то типа (для стека целых чисел):
var Head: PTItem;
function TopStack: Integer;
begin
TopStack := (Head^.Data)
end;