uses Crt;
type TPtr=^TElem;
  TElem=record
    Inf: byte;
    Link:TPtr;
  end;
var Top,Toplast: TPtr;
    n: byte;
    b,i: integer;
Procedure Push (val: byte);
var P:TPtr;
begin
  New(P);
  P^.Inf:=val;
  P^.Link:=Top;
  Top:=p;
end;
Procedure Pop (var Val: byte);
var P:TPtr;
begin
  val:=Top^.Inf;
  P:=Top;
  Top:=P^.Link;
  Dispose(p);
end;
{основная программа }
begin
  Top:=nil;
  randomize;
  write('глубина стэка n = ');  readln(n);
{ занесение в стэк }  
  writeln('занесено в стэк:  ');
  for i:=1 to n do
    begin
      b:=random(50)-30;  
      Push(b);
      write(b,' ');
    end;
    writeln;
  Toplast:=Top;  
{ просмотр содержимого стэка}
  i:=0;  
  While Toplast <> nil do
  begin
    b:=shortint(Toplast^.Inf);
    Toplast:=Toplast^.Link;
    if b<i then i:=b;          
  end;
  writeln('наименьший элемент в стэке = ',i);
end.