Текст задания

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

Исходный код программы

Program MN_5;
uses crt;
var
m,o: set of char;
s,g:integer;
key: char;
i:integer;
begin
clrscr;
s:=0;
g:=0;
Writeln('vvedite text: ');
m:=['a','e','y','u','i','o']; {множество гласных}
o:=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];{множество согласных}
repeat
   key:=readkey;{считываем введеный символ}
   write(key);
   if key in m then s:=s+1; {если введеный символ принадлежит множеству соглачных, то увеличиваем счетчик s на 1}
   if key in o then g:=g+1; {если введеный символ принадлежит множеству гласных, то увеличиваем счетчик g на 1}
until key=#46;
writeln;
if s>g then writeln('soglasnih bolshe');		{сравниваем значения счетчиков и выводи ответ}
if s<g then writeln('glasnih bolshe');
if s=g then writeln('glasnah i soglasnih odinakovo');
readln;
end.

Результат работы программы