Найти и вывести слово, содержащее наибольшее количество согласных букв

const
  N = 10;
 
var
  Words: array [0..N - 1] of string;
  Count: array [0..N - 1] of integer;
  Max: integer;
  
  Consonants: set of char;
 
begin
  var C := 'QWRTPSDFGHJKLZXCVBNM';
  for var i := 1 to Length(C) do
    Include(Consonants, C[i]);
  
  for var i := 0 to N - 1 do
    Readln(Words[i]);
  
  for var i := 0 to N - 1 do
    for var j := 1 to Words[i].Length do
      if UpCase(Words[i].Chars[j]) in Consonants then
        Inc(Count[i]);
  
  var j := 0;
  Max := Count[0];
  for var i := 1 to N - 1 do
    if Count[i] > Max then
    begin
      Max := Count[i];
      j := i;
    end;
  
  WritelnFormat('Слово {0} содержит максимальное количество согласных: {1}.', Words[j], Count[j]);
end.

  var C := 'QWRTPSDFGHJKLZXCVBNM';
  for var i := 1 to Length(C) do
    Include(Consonants, C[i]);

const Consonants = ['A'..'Z']-['A','E','I','O','U'];

const
  Blank = [#0..' ']; Vows = ['A','E','I','O','U']; Cons = ['A'..'Z']-Vows;
var
  m, t: Integer;
  w, tw: String;
  c: Char;
begin
  Write(': ');
  repeat
    Read(c);
    if c in Blank then begin
      if m<t then begin
        s:=ts; m:=t;
      end; ts:='';
    end else begin
      if UpCase(c) in Cons then Inc(t);
      ts:=ts+c;
    end;
  until c = ^J;
  WriteLn('> ',s);
end.