стеки Опции

[Lena]

Помогите, пожалуйста, с задачкой! Заклинило, никак не соображу.
Как считать элемент из стека, не удаляя его из стека?

[volvo]

Для этого в стеке делается функция Top... В FAQ-е если реализация. Что-то типа (для стека целых чисел):

var Head: PTItem;

function TopStack: Integer;
begin
  TopStack := (Head^.Data)
end;