Множества

const
  //Множество гласных букв латиницы.
  Da = ['А', 'E', ..., 'a', 'e', ...];
  //Множество согласных букв латиницы.
  Db = ['B', 'C', ..., 'b', 'c', ...];
var
  S : String;
  i, Len, Cnt : Integer;
begin
  Readln(S);
  
  Len := Length(S);
  Cnt := 0;
  for i := 1 to Len do begin
    if S[i] in Da then Inc(Cnt)
    else if S[i] in Db then Dec(Cnt)
  end;
  
  if Cnt > 0 then
    Writeln('Гласных букв больше.')
  else if Cnt < 0 then
    Writeln('Согласных букв больше.')
  else
    Writeln('Одинаковое количество гласных и согласных букв.')
  ;
  
  Readln;
end.

Var
    st:string;
    i,s1,s2:integer;
    a,c,b:set of char;
begin
      a:=['a'..'z'];
    b:=['a','e','i','o','y','u'];
    c:=a-b;
    Write('stroka -> ');
    read(st);
for i:=1 to length(st) do
    begin
     if st[i] in c then
        inc(s1)
      else if  st[i] in b then
          inc (s2);
    end;
     if s1>s2 then write ('soglasnih bolshe')
   else write ('glasnih bolshe');
    readln;
     readln;
end.