Каких букв - гласных или согласных больше в строке, содержащей цифры и буквы латинского алфавита

const
  vowels : set of char = ['A', 'E', 'I', 'O', 'U'];
  cons : set of char = ['A' .. 'Z'] - vowels;
var 
  s : string;
  i, count : integer;
  
begin
  var present_vowels : set of char := [];
  var present_cons : set of char := [];
  var absent_vowels : set of char := vowels;
  var absent_cons : set of char := cons;
 
  readln(s);
  count := 0;
  
  for i := 1 to Length(s) do
  begin
    if upcase(s[i]) in vowels then
    begin
      Include(present_vowels, upcase(s[i]));
      inc(count)
    end
    else if upcase(s[i]) in cons then 
    begin
      Include(present_cons, upcase(s[i]));
      dec(count);
    end;
        
    Exclude(absent_vowels, upcase(s[i]));
    Exclude(absent_cons, upcase(s[i]));
  end;
  if count > 0 then writeln('Гласных больше')
  else if count < 0 then writeln('Согласных больше')
  else writeln('Гласных и согласных поровну');
  
  writeln('Присутствующие гласные: ', present_vowels);
  writeln('Присутствующие согласные: ', present_cons);
  writeln('Отсутствующие гласные: ', absent_vowels);
  writeln('Отсутствующие согласные: ', absent_cons);
end.