найдите ошбку...

[Nelson1992]

Помогите найти ошибку...

const
MAX = 100;

var
stack:array[1..100] of integer;
tos:integer; {points to top of stask}

{ помещение объекта в стек }
procedure Push(i:integer);
begin
if tos>=MAX then WriteLn('Stask full')
else
begin
stack[tos]:=i;
tos:=tos+1;
end;
end; { конец процедуры помещения объекта в стек}

{ выборка объекта из стека }
function Pop:integer;

begin
tos:=tos-1;
if tos<1 then
begin
WriteLn('Stack underflow');
tos:=tos+1;
Pop:=0;
end
else Pop := stack[tos];
end; { конец функции выборки объекта из стека }

[L_M]

Да вроде все правильно. Может просто tos неправильно инициализируется(должно единицей)? Какая ошибка возникает?