HRAshton Это PascalABC, но на должно сработать и на турбе)

var
  s: string;
  i: longint;
  j: byte;

begin
  writeln('Конец стиха - строка пустая');
  repeat
    for j := 1 to length(s) do
      if (lowcase(s[j]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']) then
        i := i + 1;
    readln(s);
  until s = '';
  writeln(i, ' гласных букв');
end.