динамический стек

[klentan]

Подскажите пожалуйста что не так с подпрограммой
function POP:real;
var p:real;
old:link;
begin
p:=store^.operand;
old:=store;
store:=store^.next;
dispose(old);{при выполнении программы выдает ошибку: error 204 invalid pointer operation}
pop:=p;
end;