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

program mn_10;

const
  glasn = ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
  soglas = ['б', 'в', 'г', 'д', 'ж', 'з', 'й', 'л', 'м', 'н', 'р', 'к', 'п',
    'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];

var
  st: string;
  g, s, i: integer;

begin
  write('Введите строку ');
  readln(st);
  g := 0;
  s := 0;
  for i := 1 to length(st) do
    if st[i] in glasn then
      inc(g)
    else if st[i] in soglas then
      inc(s);
  if g > s then
    writeln('Гласных больше')
  else if g < s then
    writeln('Согласных больше')
  else
    writeln('Согласных и гласных букв поровну');
  readln;

end.