begin
  CrearPila(meaux);
  AbrirPila(meaux);
  if (PilaVacia(me))
     then
         ShowMessage('La Pila se Encuentra Vacia')
     else
            begin
              While not (PilaVacia(me)) do
               begin
                Tope(me,rd);
                lst1.Items.Add('Clave:   ' + rd.Clave);

                if  PilaVacia(meaux)
                    then
                     Apilar(meaux,Rd);
                Desapilar(me);
               end;
            end;

        While (PilaVacia(me)) do
               begin
                Tope(meaux,regaux);
                Apilar(me,regaux);
               // Desapilar(meaux);
               end;

 CerrarPila(meaux);
 DestruirPila(meaux);
end;