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

[stasig]

Прошу помочь с задачей. В самом начале изучения нахожусь.
На основе этой хочу разобраться с другими. Если не трудно, то как нибудь по проще.

Задача.
Определите в тексте слово, содержащее минимальное число согласных. (При решении определить процедуру, или функцию, определяющую число согласных в слове).

[Arigato]

Ну 1-м делом пишем процедуру для определения числа согласных в переданной строке. Теперь достаточно разбить строку на слова (посимвольно просматриваем, выделяем слова, вызываем нашу функцию, выбираем слово с минимальным числом согласных).

[Ramires]

Вот опять же, просят же соблюдать название темы.. ведь закроют..

Частично помогу вам:

function StrToWord(Var S: String; Delims: String): String;
var Res: String;
    State: byte;
begin
  State:=1;
  Res:='';
  if S='' then
  begin
    Result:='';
    Exit;
  end;
  while Pos(S[State],Delims)<>0 do
  begin
    Inc(State);
    if State>Length(S) then
    begin
      S:='';
      Result:='';
      Exit;
    end;
  end;
  while Pos(S[State],Delims)=0 do
  begin
     Res:=Res+S[State];
     Inc(State);
     if State>Length(S) then
     begin
       S:='';
       Result:=Res;
       Exit;
     end;
  end;
  while Pos(S[State],Delims)<>0 do
  begin
    Inc(State);
    if State>Length(S) then
    begin
      S:='';
      Result:=Res;
      Exit;
    end;
  end;
  Delete(S,1,State-1);
  Result:=Res;
end;

Эта функция выделяет из строки слова.
Вызываете функцию:

Word:=StrToWord(Stroka,'Razdelitel');

где:
Word - выделенное слово
Stroka - собственно строка со словами
Razdelitel - разделитель между словами.. (',',' ','.', и так далее..)

Особенность работы этой функции заключается в том, что выделив слово Word с разделителем Razdelitel строка Stroka уменьшится на Word и Razdelitel, таким образом вам не придется определять позиции с которых начинаются слова..

Этот код я подсмотрел давно и к сожалению уже не вспомню его автора, но огромное спасибо ему.. мне эта функция очень помогает.. эдакая приятная мелочь

[stasig]

так, так, так. Спасибо большое.
БУду пытаться разбираться дальше.....