Ошибка при реализации стека

unit Unit_Stack;
 
interface
 
type                              
  tStack = ^rStack;          
  rStack = object        
    N:string;
    Pred : tStack;
    procedure Push(x: string);
    function Pop: string;
  end;
 
var Stack:tStack;
  { открытые описания }
implementation
 
procedure rStack.Push(x: string);
var St:tStack;
begin
New(St);
  St^.N := x;
Stack^.Pred := St;
Dispose(St);
end;
 
function rStack.Pop: string;
begin
  if Stack = nil then
  begin
    Pop := 'null';
    Exit;
  end;
  Stack := Stack^.Pred;
  Pop := Stack^.N;
end;
 
begin
stack := nil;
end.

procedure rStack.Push(x: string); // заталкиваем в стек
var St:tStack;
begin
  New(St);
  St^.N := x;
  St^.Pred := St; // Предыдущий для НОВОГО - старый. И не надо никаких Dispose ...
end;
 
function rStack.Pop: string; // выталкиваем из стека
var St:tStack;
begin
  if Stack = nil then
  begin
    Pop := 'null';
    Exit;
  end;
  st := Stack;
  Pop := st^.N; // возвращаем значение с вершины, а не со следующего элемента
  Stack := Stack^.Pred;
  Dispose(St) // а вот теперь бывшую вершину удаляем...
end;