Дан текст на русском языке. Определить, каких букв больше –гласных или согласных - Pascal ABC

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

Тема: Множества Дан текст на русском языке. Определить, каких букв больше –гласных или согласных Помогите пожалуйста с программой...

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

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

Const Zn=['а','А','е','Е','и','И','о','О','у','У','э','Э','ю','Ю','я','Я','ы','Ы'];
      SG=['б','Б','в','В','г','Г','д','Д','ж','Ж','з','З','к','К','д','Д','м','М','н','Н','п','П','р','Р','с','С','т','Т','ф','Ф','х','Х','ц','Ц','ч','Ч','щ','Ш','щ','Щ','ъ','Ъ'];
Var St:string;
    i,g,s:integer;f:char;
Begin
St:='йфяцычувскаменрнрошольуауаешлбъуэ.хжю..,ВВККааааздиябщлюьшортнпмквывапроыввааенеек';
g:=0;s:=0;
 For i:=1 to length(st) do
 begin
  If st[i] in zn then Inc(g);
  If st[i] in SG then Inc(s);
 end;
IF g>s then write('Гласных букв больше ',g)
       else if s>g then write('Согласных букв больше ',s)
                   else write('Количество гласных и согласных букв одинаково');
 
end.

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

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

В первой строке объявляются две константы: Zn и SG. Zn - это набор гласных букв (а, А, е, Е, и, И, о, О, у, У, э, Э, ю, Ю, я, Я, ы, Ы), а SG - набор согласных букв (б, Б, в, В, г, Г, д, Д, ж, Ж, з, З, к, К, д, Д, м, М, н, Н, п, П, р, Р, с, С, т, Т, ф, Ф, х, Х, ц, Ц, ч, Ч, щ, Ш, щ, Щ, ъ, Ъ).
Затем объявляются переменные: St (строка, в которой содержится текст на русском языке), i, g, s (количество гласных и согласных букв соответственно), f (не используется в данном коде).
В следующей строке задается текст на русском языке.
Далее, в цикле происходит подсчет количества гласных и согласных букв в тексте. Если количество гласных больше, то выводится сообщение Гласных букв больше, если количество согласных больше - Согласных букв больше, если количество гласных и согласных букв одинаково - Количество гласных и согласных букв одинаково.