Var
N : Integer;
x : PStack;
………………….
N := Stack^.Data;
x:= Stack;
Stack := Stack^.Next;
Dispose(x); ………………….Type
PStack = ^TStack;
TStack = Record
Data : Integer;
Next : PStack;
end;
Var
Stack : PStack;
Var
x : PStack;
……………
New(x);
x^.Data := …….;
x^.Next := Stack;
Stack := x;
……………
Вставь все в блокнот так лучше видно будет.