Используем множество для подсчета числа гласных

Задача. Используя множество гласных букв, подсчитать количество гласных в предложении. Предложение и множество гласных ввести с клавиатуры.
Решение.

Program Glasn;
Var
P : String; {предложение}
Gl : Set Of Char; {множество гласных}
B : Char;
K,I,N : Integer;
Begin
Gl := [];
B := ’#’;
While B <> ’!’ do
Begin
Writeln (’Введите гласную, конец ввода – !’);
Readln(B);
If B <> ’!’ then
Gl := Gl+[B];
End;
Writeln (’Введите предложение’);
Readln(P);
K := 0;
N := Length(P);
For I := 1 To N Do
If P[I] In Gl Then
K := K+1;
Writeln (’Количество гласных в предложении - ’,K);
WriteLn(’Нажмите клавишу ENTER...’);
ReadLn;
End.