program 14
{ordenamos la pila copia, para que quede en el mismo orden que la pila
original}
uses estructu;
var original, copia, aux1, aux2, aux:pila;
begin
readpila(original);
write('ingrese los mismos datos que antes, pero en distinto orden');
readpila(copia);
inicpila(aux,'');
inicpila(aux1,'');
inicpila(aux2,'');
while not pilavacia(original) do
begin
while not pilavacia(copia) do
if (tope(original)) = (tope(copia)) then
apilar(aux1, desapilar(copia))
else
apilar(aux2, desapilar(copia));
while not pilavacia(aux2) do
apilar(copia, desapilar(aux2));
apilar(aux, desapilar(original));
end;
while not pilavacia(aux) do
apilar(original, desapilar(aux));
while not pilavacia (aux1) do
apilar(copia, desapilar(aux1));
writepila(original);
writepila(copia);
end.