program TeoricoVocales;

var
  vocales:array [1..10] of char;
  sn, letra:char;
  indice:integer;

  function EsVocal(a:char):boolean;
  begin
    esVocal:=(a='a')or(a='e')or(a='i')or(a='o')or(a='u')or(a='A')or(a='E')or(a='I')or(a='O')or(a='U');
  end;

begin
  indice:=0;
repeat
  writeln('Ingrese una letra');
  readln(letra);
  if EsVocal(letra)then
  begin
    indice:=indice+1;
    if indice<=10 then
    begin
      vocales[indice]:=letra;
    end;
  end;
  writeln('¿Desea continuar? S/N');
  readln(sn)
  until (sn='N')or(sn='n')or(indice=10);
  writeln('Cantidad de vocales ingresadas es: ',indice);
end.