Дописать в строку гласные и знаки препинания - Pascal ABC

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

Нужно дописать гласные и знаки препинания. Чтобы в ответе выводил и гласные и согласные. Помогите пожалуйста. Вот сама программа

program asd;
var i,gl,sogl:integer;
s:string;
begin
cls;
readln(s);
for i:=1 to length(s) do
if (s[i]='у') or (s[i]='е') or (s[i]='а') or (s[i]='о') or (s[i]='и') or (s[i]='ы') then inc(gl)
else
if s[i]<>' 'then inc(sogl);
if gl>sogl then writeln('гласных букв больше= ',gl)
else
if gl=sogl then writeln('букв равно = ', sogl)
else writeln('согласных букв больше = ',sogl);
end.

Решение задачи: «Дописать в строку гласные и знаки препинания»

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

const
    ANSWER: Array[Boolean, Boolean] Of String[10] = (('Equal', 'Equal'), ('Vowels', 'Consonants'));
    ALPHABET: Set Of Char = ['A'..'Z', 'a'..'z'];
    VOWELS: Set Of Char = ['E', 'Y', 'U', 'I', 'O', 'A', 'e', 'y', 'u', 'i', 'o', 'a'];
    CONSONANTS: Set Of Char = ALPHABET - VOWELS;
    {VOWELS: Set Of Char = ['а', 'А', 'е', 'Е', 'ё', 'Ё', 'и', 'И', 'о', 'О', 'у', 'У', 'э', 'Э', 'ю', 'Ю', 'я', 'Я'];
    //CONSONANTS: Set Of Char = ['б', 'Б', 'в', 'В', 'г', 'Г', 'д', 'Д', 'ж', 'Ж', 'з', 'З', 'й', 'Й', 'к', 'К', 'л', 'Л', 'м', 'М', 'н', 'Н', 'п', 'П', 'р', 'Р', 'с', 'С', 'т', 'Т', 'ф', 'Ф', 'х', 'Х', 'ц', 'Ц', 'ч', 'Ч', 'ш', 'Ш', 'щ', 'Щ', 'ъ', 'Ъ', 'ь', 'Ь'];}
var
    s: String;
    vowelsCount, consonantsCount, i: Word;
begin
    vowelsCount := 0; consonantsCount := 0;
    Write('Input s: '); ReadLn(s);
    for i := 1 to Length(s) do
        if (s[i] in VOWELS)
        then
            Inc(vowelsCount)
        else
            if (s[i] in CONSONANTS)
            then
                Inc(consonantsCount);
    WriteLn('Consonants:', consonantsCount:6);
    WriteLn('    Vowels:', vowelsCount:6);
    Write('Answer: ', ANSWER[vowelsCount <> consonantsCount, consonantsCount > vowelsCount]);
end.

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

В начале кода объявляются переменные vowelsCount, consonantsCount и i, которые будут использоваться для подсчета количества гласных и согласных букв в строке s.
Затем происходит чтение строки s с помощью функции ReadLn.
Далее идет цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий символ гласной или согласной буквой.
Если символ является гласной буквой (s[i] in VOWELS), то значение переменной vowelsCount увеличивается на единицу.
Если символ является согласной буквой (s[i] in CONSONANTS), то значение переменной consonantsCount увеличивается на единицу.
После завершения цикла выводится количество согласных и гласных букв в строке s.
Затем выводится ответ на основе данных о количестве гласных и согласных букв в строке s.