Непонятный баг. Вставка в стек

unit Unit_Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit_Stack;
 
type
  TForm1 = class(TForm)
    InputReal: TEdit;
    InputString_TEXT: TLabel;
    addButton: TButton;
    MemoForStack: TMemo;
    InfoMemo: TLabel;
    Zadacha: TButton;
    CleanMemo: TButton;
    MemoPlus: TMemo;
    MemoMinus: TMemo;
    LMinus: TLabel;
    Lplus: TLabel;
    Label1: TLabel;
    procedure InputRealKeyPress(Sender: TObject; var Key: Char);
    procedure addButtonClick(Sender: TObject);
    procedure ZadachaClick(Sender: TObject);
    procedure CleanMemoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.InputRealKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
  begin
    MemoForStack.Lines.add(InputReal.Text);
    InputReal.Clear;
  end;
end;
 
procedure TForm1.addButtonClick(Sender: TObject);
begin
  MemoForStack.Lines.add(InputReal.Text);
  InputReal.Clear;
end;
 
procedure TForm1.ZadachaClick(Sender: TObject);
var
  n,i:integer;
  S:Stack_int;
 
  r:integer;
  e:Pinteger;
  p:Telem;
 
 
begin
  MemoPlus.Visible:=True;
  MemoMinus.Visible:=True;
  Lplus.Visible:=True;
  LMinus.Visible:=True;
  n:=MemoForStack.Lines.Count;
  for i:=0 to n-1 do
    begin
      r:=StrToInt(MemoForStack.Lines[i]);
      New(p);
      p:=@r;
      s.push(p);
    end;
   while not s.isEmpty do
    begin
      i:=s.get;
      if i>0 then MemoPlus.Lines.Add (IntToStr(i));
      if i<0 then MemoMinus.Lines.Add (IntToStr(i));;
    end;
 
 
 
 
end;
 
procedure TForm1.CleanMemoClick(Sender: TObject);
begin
  MemoForStack.Clear;
end;
 
end.

unit Unit_Stack;
 
interface
 
type
  TElem = Pointer;
  TStack = ^Tlist;
  Tlist = record
          inf : TElem;
          next : TStack;
          end;
 
  Stack = class
        protected
          first : TStack;
        public
          constructor create ;
          function pop : TElem ;
          procedure push ( e:TElem ) ;
          function isEmpty:Boolean ;
          procedure clean ;
          destructor Destroy; override ;
          end;
 
  Stack_Int = class(Stack)
              public
                function Get :  Integer;
               end;
 
implementation
 
{методы Stack}
constructor stack.Create();
begin
  inherited create;
  first:=nil;
end;
 
function stack.isEmpty:Boolean ;
begin
  Result:=(first=nil);
end;
 
 
function stack.pop : TElem ;
var q:TElem;
begin
  if isEmpty then Exit
  else
    begin
      q:=first;
      result:=first^.inf;
      first:=first^.next;
      Dispose(q);
    end;
end;
 
procedure Stack.push ( e:TElem ) ;
var q:TStack;
begin
  New(q);
  q^.inf:=e;
  q^.next:=First;
  First:=q;
end;
 
procedure Stack.clean ;
var q:TStack;
begin
  while first<>nil do
    begin
      q:=first;
      first:=first^.next;
      Dispose(q);
    end;
end;
 
destructor Stack.Destroy;
begin
  clean;
  inherited Destroy;
end;
 
{методы для стека чисел}
 
function Stack_int.Get : Integer;
var g:Telem;
begin
  g:=pop;
  result:=PInteger(g)^;
end;
 
 
end.

s:=Stack_int.create;
 
  for i:=0 to n-1 do
    begin
      r:=StrToInt(MemoForStack.Lines[i]);
      s.push(@r);
    end;
 
  while not s.isEmpty do
    begin
      r:=s.get;
      if r>0 then MemoPlus.Lines.Add (IntToStr(r));
      if r<0 then MemoMinus.Lines.Add (IntToStr(r));;
    end;

 for i:=0 to n-1 do
    begin
      r:=StrToInt(MemoForStack.Lines[i]);
      s.push(@r);
    end;
  r:=404;
  while not s.isEmpty do
    begin
      r:=s.get;
      if r>0 then MemoPlus.Lines.Add (IntToStr(r));
      if r<0 then MemoMinus.Lines.Add (IntToStr(r));;
    end;

for i:=0 to n-1 do
    begin
      r:=StrToInt(MemoForStack.Lines[i]);
      new(e); //e : Pinteger;
      e^:=r;
      p:=e; //p:pointer;
      s.push(p);
    end;