Ввести предложение. Подсчитать количество гласных в нем.

Program Count_Gl;
Var
 Predl,Gl:String; { Предложение и эталонная строка }
 n,m,i,j,kol:Integer; { Вспомогательные переменные }

Begin
 Gl:=’аеёиоуыэюяАЕЁИОУЫЭЮЯ’; {Строка гласных (эталонов)}
 m:=Length(Gl);
 WriteLn('Введите предложение');
 ReadLn(Predl);
 n := Length(Predl);
 kol := 0;
 For i:=1 to n do
  For j:=1 to m do
    If Predl[i] = Gl[j] then
      kol:=kol + 1;
 Writeln('Количество гласных в предложении = ',kol);
 Writeln('Работа окончена. Нажмите клавишу ENTER');
 Readln;
End.

---