Datos Punteros e Implementación Dinámica de Pilas

procedure apilar(p:in out pila; e:in elemto) is
aux:ptDato;
begin
aux:=p.cim;
p.cim:=new unDato;
p.cim.dato:=e;
p.cim.sig:=aux;
p.alt:=p.alt+1;
end apilar;