Строки. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте. - Pascal

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

plese решить задачу по практике: вот условия! Дан текст из строчных латинских букв. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте.

Решение задачи: «Строки. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте.»

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

Const
  m=['a'..'z'];
  gl=['a','e','o','i','u','y'];
  sg=m-gl;
Var
  s: String;
  i,k1,k2: Integer;
BEGIN
Writeln('Введите строку:');
Readln(s);
For i:=1 to Length(s) do
begin
  If s[i] in gl Then Inc(k1);
  If s[i] in sg Then Inc(k2);
end;
If k1>k2 Then Writeln('гласных больше');
If k2>k1 Then Writeln('согласных больше');
If k1=k2 Then Writeln('Поровну');
END.

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

Объявляются константы: — m - массив из всех букв английского алфавита от 'a' до 'z'; — gl - массив из гласных букв 'a', 'e', 'o', 'i', 'u', 'y'.
Вычисляется разница между массивами m и gl, и результат сохраняется в переменной sg.
Вводится строка s с помощью функции Readln.
Переменные k1 и k2 инициализируются нулем.
Происходит цикл по всем символам строки s.
Если символ является гласной, то увеличивается значение k1.
Если символ является согласной, то увеличивается значение k2.
После завершения цикла проверяется, какая из переменных k1 и k2 больше.
Выводится соответствующее сообщение в зависимости от результата сравнения.