Qtd_Vogais_Procedure

Program qtdvogais ;
var frase:string;

    procedure processa(frase:string);
    Var
    tam,i:integer;
    vogal:array[1..5] of integer;
    Begin
        tam:=length(frase);
        for i := 1 to tam do
            Begin
                if (frase[i]='a') or (frase[i]='A') then
                    vogal[1]:=vogal[1]+1
                else if (frase[i]='e') or (frase[i]='E') then
                    vogal[2]:=vogal[2]+1
                else if (frase[i]='i') or (frase[i]='I') then
                    vogal[3]:=vogal[3]+1
                else if (frase[i]='o') or (frase[i]='O') then
                    vogal[4]:=vogal[4]+1
                else if (frase[i]='u') or (frase[i]='U') then
                        vogal[5]:=vogal[5]+1;
            End;
        Writeln('Qtd de Vogais a/A: ',vogal[1]);
        Writeln('Qtd de Vogais e/E: ',vogal[2]);
        Writeln('Qtd de Vogais i/I: ',vogal[3]);
        Writeln('Qtd de Vogais o/O: ',vogal[4]);
        Writeln('Qtd de Vogais u/U: ',vogal[5]);
    End;



 Begin
      Write('Informe Frase: ');
      readln(frase);
      processa(frase);
 End.