Programa da pilha


program fila ;
type nada = record
     nome:string;
 idade:integer;
 peso:integer;
 prox:^nada;
end;
var cauda:^nada;
    px:^nada;
    frente:^nada;
    x:integer;
    n:char;
 procedure inserir;
    begin
             new(px);
             writeln('introduza um nome');
             readln(px^.nome);
             writeln('introduza a idade');
             readln(px^.idade);
             writeln('introduza o peso');
             readln(px^.peso);
         if (frente=nil) then
           begin
             px:=cauda;
             px:=frente;
           end   
         else
       begin
             cauda^.prox:=px;
             cauda:=px;

           end;   
    end;

 Procedure eliminar;
    begin
     if (frente=nil) then
         writeln('nao existe nada')
     else
         px:=frente;
     frente:=frente^.prox;
     dispose(px);
    end;
 procedure mostrardados;
    begin
     if (frente = nil) then
         writeln('nao exite nada')
     else
         repeat
          writeln(px^.nome);
          writeln(px^.idade);
      writeln(px^.peso);
      px:=px^.prox;
     until(px = nil);
    end;
 begin
   cauda:=nil;
   frente:=nil;
  repeat
        writeln;
        writeln('****Menu****');
        writeln('1-inserir ');
    writeln('2-eliminar ');
    writeln('3-mostrardados ');
    writeln('4-sair ');
     readln(x);
    case n of
          '1': inserir;
      '2': eliminar;
      '3': mostrardados;   
            end;
  until ( x = 4);
 end.