Muestra cada caracter de una cadena

💻 Ingresar un texto y mostrar la cantidad de vocales que contiene, extrayendo y comparando letra por letra.

* PSeInt :

Algoritmo full_codigos
    Definir frase, letra como Caracter;
    Definir x, vocales como Entero;
    letra <- "";
    vocales <- 0;
    Escribir "06. MUESTRA LA CANTIDAD DE VOCALES.";
    Escribir Sin Saltar "INGRESE FRASE : ";
    Leer frase;
    Para x <- 0 Hasta longitud(frase) Con paso 1 hacer
        letra <- MAYUSCULAS(SUBCADENA(frase,x,x));
        Si (letra == "A" o letra == "E" o letra == "I" o letra == "O" o letra == "U") Entonces
            vocales <- vocales + 1;
        FinSi
    FinPara
    Escribir "TOTAL DE VOCALES : ", vocales;   
FinSubProceso