Л-21 задача-1

program p;
var gl,sogl: set of char; //множественный тип из символов gl и sogl
x:string;
k,i:integer;
begin
writeln ('Введите слово: ');
readln(x); //слово
k:=0; //переменная содержащая ответ
gl:= ['а','о','э','ю','у','е','ё','и','я','ы'];//множественный тип и gl с гласными буквами
sogl:= ['й','ц','к','н','г','ш','щ','з','х','ъ','ф','в','п','р','л','д','ж','ч','с','м','т','ь','б'];//множественный тип и sogl с согласными буквами
for i:= 1 to length(x)-1 do begin
    if (x[i] in gl) and (x[i+1] in sogl) then k:=k+1;
  end; //если символ слова (X) встречается в множ.типе гласных и ПОСЛЕДУЮЩИЙ символ слова (Х) встречается в множ.типе согласных, то инкрементируем (увеличивает переменную k на единицу)
    writeln;
    writeln ('Количество гласных, после которых следует согласная = ',k); //вывод
end.