Bueno pues lo que tengo que hacer ahora es lo siguiente:
Me dan una palabra y lo que tengo que hacer es invertir cuando hay 2 vocales o mas seguidas.
Por ejemplo:
puerta-->peurta
Esto es lo que he hecho, si alguien me lo pudiera revisar....
MUCHAS GRACIAS.
PROCEDURE encriptar (VAR palabra:string)
VAR
pila:tPila;
cola:tCola;
Car1,Car2:Char;
I:Integer;
BEGIN
CrearPila(pila);
CrearCola(cola);
FOR (I:=1 to length(palabra)) DO
Begin
IF (palabra[I] Not in ['a','e','i','o','u']) THEN
MeterEnCola(palabra[I],cola);
ELSE
Apilar(palabra[I],pila);
REPEAT
SacarDeCola(Car1,cola);
Desapilar(Car2,pila);
UNTIL (EsVacia(cola) OR EsVacia(Pila)=True)
END;{fin}