Ошибка при реализации стека (доступ, судя по всему)

[jihot]

Здравствуйте!

Делал модуль стека, еще неделю назад работал, вчера так и не смог найти ошибку..(

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.

вылетает при обращении к Stack^.Pred , Runtime 236.
RAD 2010 компилятор

[Stilet]

Ну так наведи на него мышку и посмотри не равен ли он nil.
Уверен что в этом проблема.

[jihot]

Сообщение от Stilet

Ну так наведи на него мышку и посмотри не равен ли он nil.
Уверен что в этом проблема.

а если так то почему? не понимаю.
я же помещаю в стек, что мешает сделать это

[p51x]

я же помещаю в стек, что мешает сделать это

то, что пред указатель, а память под него вы не выделили

[jihot]

procedure rStack.Push(x: string);
var St:tStack;
begin
New(St);
  St^.N := x;
  St^.Pred := St;
 Stack:=St;
end;

Сделал так, вроде пока проблема с Runtime исчезла.