В символьном массиве подсчитать количество гласных согласных букв - Pascal

Формулировка задачи:

В символьном массиве подсчитать количество гласных согласных букв. (русский алфавит. Определение гласных и согласных можно сделать с помощью функции). помогите а то вооще!!! Зарание спасибо!

Решение задачи: «В символьном массиве подсчитать количество гласных согласных букв»

Листинг программы

uses crt;
var a:string;
sogl,glas:integer;
 
procedure schet(b:string; var glas,soglas:integer);
begin
 glas:=0;
 soglas:=0;
 for i:=1 to length(b) do
  begin
   if b[i] in ['А'..'п','р'..'ё'] then
   if b[i] in ['а','А','о','О','у','У','е','Е','ё','Ё','и','И','ы','Ы','э','Э','ю','Ю','я','Я'] then inc(glas) else inc(soglas);
 end;
end;
 
begin
 ClrScr;
 Readln(a);
 Schet(a,glas,sogl);
 Writeln('Soglasnix ',sogl);
 Writeln('Glasnyx ',glas);
 Readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal. Он содержит следующие элементы:

uses crt;: Подключение стандартной библиотеки ввода-вывода.
var a: string;: Объявление переменной a типа string, которая будет хранить символьную строку.
sogl, glas: integer;: Объявление двух переменных sogl и glas типа integer, которые будут использоваться для подсчета количества гласных согласных букв.
procedure schet(b: string; var glas, soglas: integer);: Объявление процедуры schet, которая принимает символьную строку b и две переменные glas и soglas типа integer. Внутри процедуры происходит подсчет количества гласных согласных букв.
for i := 1 to length(b) do: Цикл for, который будет выполняться столько раз, сколько символов в строке b.
if b[i] in ['А'..'п', 'р'..'ё'] then: Проверка, является ли текущий символ гласной согласной буквой.
if b[i] in ['а','А','о','О','у','У','е','Е','ё','Ё','и','И','ы','Ы','э','Э','ю','Ю','я','Я'] then inc(glas) else inc(soglas);: Если текущий символ является гласной согласной буквой, то увеличивается значение переменной glas, иначе - значение переменной soglas.
end;: Окончание цикла for.
begin: Начало блока кода.
ClrScr;: Вызов функции очистки экрана.
Readln(a);: Чтение символьой строки с помощью функции Readln.
Schet(a,glas,sogl);: Вызов процедуры schet с передачей символьой строки a и переменных glas и soglas.
Writeln('Soglasnix ',sogl);: Вывод значения переменной soglas с помощью функции Writeln.
Writeln('Glasnyx ',glas);: Вывод значения переменной glas с помощью функции Writeln.
Readln;: Ожидание ввода пользователя.
end.;: Окончание блока кода.