Datos Punteros e Implementación Dinámica de Pilas

procedure asignar(pout:out pila; pin:in pila) is
ptout,ptin:ptDato;
begin
if esVacia(pin) then
crearVacia(pout);
else
ptin:=pin.cim;
pout.cim:=new unDato;
pout.cim.dato:=ptin.dato;
ptout:=pout.cim;
ptin:=ptin.sig;
while ptin/=null loop
ptout.sig:=new unDato;
ptout:=ptout.sig;
ptout.dato:=ptin.dato;
ptin:=ptin.sig;
end loop;
ptout.sig:=null;
pout.alt:=pin.alt;
end if;
end asignar;