Определить, каких букв — гласных или согласных больше в строке - Pascal

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

Задание: Ввести строку, содержащую цифры и буквы латинского алфавита. Определить, каких букв - гласных или согласных больше. Напечатать встречающиеся гласные и согласные, отсутствующие гласные и согласные (каждую по одному разу).

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

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

const
    VOWELS = ['A', 'O', 'E', 'I', 'U'];
    CONSONANTS = ['A'..'Z']-VOWELS;
...
  s[i]:=UpCase(s[i]);
  if s[i] in VOWELS then Inc(vCount)
  else if s[i] in CONSONANT then Inc(cCount);

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

VOWELS - константа, содержащая массив гласных букв: 'A', 'O', 'E', 'I', 'U'.
CONSONANTS - константа, содержащая массив согласных букв: все буквы от 'A' до 'Z', за исключением букв, содержащихся в массиве VOWELS.
s[i]:=UpCase(s[i]); - преобразование символа в верхний регистр, чтобы гарантировать сравнение с массивами гласных и согласных в верхнем регистре.
if s[i] in VOWELS then Inc(vCount) - если символ в строке s является гласной, увеличивается счетчик гласных vCount.
else if s[i] in CONSONANT then Inc(cCount); - если символ в строке s является согласной, увеличивается счетчик согласных cCount.