стек

[freestylerUA]

подскажите пожалуйста правильно ли я решил,если нет подскажите как,ибо начитался много - но так и не дошло.
У меня есть непустой стек с указателем на его вершину р1, нужно записать число в стек и вывести адрес новой вершины р2
я вот что то пытался...

uses crt;
type
PNode=^TNode;
TNode=record
  Data:integer;
  Next:PNode;
  end;
var d1,d:integer;p1,p2:PNode;
procedure CS(var p1:PNode; var d1:integer);
  begin
  New(p1);
  p1^.next:=nil;
  p1^.data:=d1;
  end;
procedure Add(var p1,p2:pnode; var d:integer);
  begin
  New(p2);
  p2^.data:=d;
  p2^.next:=p1;
  p1:=p2;
  end;
procedure del(var p1:pnode);
var p2:pnode;
  begin
  if p1 <> nil then
    begin
    p2:=p1;
    p1:=p1^.next;
    Dispose(p2);
    end;
  end;
begin
clrscr;
 Writeln('** VVEDUTE CHUSLO **');
 readln(d1);
 writeln('VVEDUTE CHUSLO D');
 readln(d);
 cs(p1,d1);
 add(p1,p2,d);
 del(p1);
 repeat until
 keypressed;
end.

[veniside]

ну код похож на рабочий, а в чём вопрос? После добавления, выводите p2 на экран, и всё.

[Летучий_СкилетиК]

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

ну код похож на рабочий, а в чём вопрос? После добавления, выводите p2 на экран, и всё.

все верно
вот только p2 удаляется

 p1:=p1^.next;
    Dispose(p2)

, а p1 указывает на nil...

p.s , интересно а что это такое? создаем значит новый элемент стека и тут же нго удаляем. процедура

del(var p1:pnode)

не нужна, достаточно просто переадресовать p1 на p2 или оставить p2 вершиной..., и выводим p1/p2.