Turbo Pascal Стек

[Serge_Bliznykov]

непонятно, что Вы там накрутили и зачем..
вот мой вариант (я просто чуток подправил Ваш код...)

uses crt;
type PSTRC=^Strc;
     Strc=record
     inf:integer;
     ptr:PSTRC;
end;


Procedure Dop(var S:Pstrc;dat:integer);
var nov:Pstrc;
begin
New(nov);
nov^.inf:=dat;
nov^.Ptr:=s;
S:=nov;
end;

Function Ud(var S:Pstrc; var err:boolean):integer;
var old:Pstrc;
begin
 if s<>Nil then
  begin
   old:=S;
   S:=S^.ptr;
   Ud:=old^.inf;
   dispose(old);
   err:=false
  end
 else
  begin
   Ud:=0;
   err:=true
  end
end;

Function Cht(s:PSTRC; var err:boolean):integer;
begin
if s<>Nil then
 begin
  write('inf=',s^.inf:3);
  err:=false;
  Cht:=s^.inf;
 end
else begin
      writeln('stack pust');
      err:=True;
      cht:=0;
     end;
end;

var S1 : PSTRC;
    k, N, CntN, One :integer;
    StackErr : boolean;


BEGIN
 clrscr;
 S1 := nil; {обязательно проиницилизируем стек пустым значением}

 WriteLn('Введите последовательность целых чисел (0 - окончание ввода)');
 readln(k);
 while k<>0 do
  begin
   if k<>0 then Dop(s1,k);
   readln(k);
  end;
 writeln;

 Write('Введите искомое значение N: ');
 readln(N);

 CntN := 0; {счётчик элементов равных N иницилизируем (присвоим ноль)}

 { Вывод содержимого стека с одновременным удалением из стека 
   и подсчитываем, сколько элементов стека равны N }
 while s1<>Nil do
  begin
    One :=  Ud(s1, StackErr);
    if One=N then 
      inc(CntN);
    Write(One,' ');
  end;

  {вывод результатов}
  WriteLn;
  WriteLn('Число элементов равных ',N,' было ',CntN);
  readln;
END.

[Dower]

А как подсчитать просто количество элементов, не обязательно равных N?

P.S Все сам разобрался.

Спасибо за помощь.