Указать количество согласных

[qaguero11]

Всем привет1!Помогите ребят пжлст написать код
Для каждого заданного слова указать количество согласных.Определить слово в котором количество согласных максимальна

[min@y™]

О, ножная косметология помогла, я гляжу.
Уже лучше.
Откуда в программу поступают "заданные слова"?
Отфильтровать согласные буквы - не проблема. Помогут операции со множествами. "Ь" и "Ъ" считать согласными буквами?

Определить слово в котором количество согласных максимальна

Таких слов может быть 2 или более. Чо в этом случае делать?

[qaguero11]

тогда выводить их 2 или больше

[qaguero11]

"Ь" и "Ъ" считать согласными буквами? нет

[qaguero11]

Откуда в программу поступают "заданные слова"?из мемо

[min@y™]

Уже лучше.

Откуда в программу поступают "заданные слова"?

[min@y™]

из мемо

осталось определиться, что есть слово.

[qaguero11]

из мемо

[qaguero11]

любые вводим слова

[min@y™]

любые вводим слова

"мама мыла раму папу" - это 1 слово или сколько?

В любом случае, смотри как красиво выглядит моё решение:

{$TELEPATOR_MODE ON}
{$MESSAGE 'do not copy this code! bugs inside!'}

type
  TFuckIt = class(TStringList)
  private
    FMax: int32;
    FFilter: string;
  protected
    function Wanted(const ASymbol: Char): Boolean;
    function IncludeCount(const AWord: string): int32;
  public
    constructor Create(const ADefaultFilter: string = ''); reintroduce;
    procedure Push(const AWord: string);
    procedure Clear;
    
    property Max: int32 read FMax;
    property Filter: string read FFilter write FFilter;
  end;

implementation

constructor TFuckIt.Create(const ADefaultFilter: string = '');
begin
  inherited Create();
  FFilter:= ADefaultFilter;
end;

function TFuckIt.Wanted(const ASymbol: Char): Boolean;
begin
  Result:= pos(string(ASymbol), FFilter) <> 0;
end;

function TFuckIt.IncludeCount(const AWord: string): int32;
var
  c: Char;
begin
  Result:= 0;
  for c in AWord do
    inc(Resulr, Boolean(Wanted(c)));
end;

procedure TFuckIt.Push(const AWord: string);
var
  cnt: int32;
begin
  cnt:= IncludeCount(AWord);
  
  if cnt < FMax
    then exit;
    
  if cnt > FMax
    then begin
           inherited Clear();
           FMax:= cnt;
         end;
         
  Self.Add(AWord);
end;

procedure TFuckIt.Clear;
begin
  inherited;
  FMax:= 0;
end;

{$TELEPATOR_MODE OFF}

end.