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

[Serge_Bliznykov]

newerow1989, а для чего Вы формируете список слов в динамическом массиве?
По условиям задачи в этом необходимости нет!
Нашли очередное слово - выдали по нему информацию и пошли дальше, хранить то список для чего? Чтобы было медленее или чтобы памяти больше занять?
Или Вы просто взяли год из своего хранилища и выложили с минимальной доработкой?!

кроме того, как я вижу, задача поиска экстремума не решена:

и определяло слово в котором больше согласных

[newerow1989]

Немножко не дочитал! Вот окончательный ответ:

procedure TForm1.Button1Click(Sender: TObject);
type tSlova=record
        Str:string;
        Count:integer;
     end;
const sogl=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var s,s1:string;
    i,j,k,l,c:integer;
    slova:array of tSlova;
begin
   c:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      s:=Memo1.Lines[i]+' ';
      s1:='';
      For j:=1 to Length(s) do
      begin
         If s[j]=' ' then
         begin
            c:=c+1;
            SetLength(slova,c);
            slova[c-1].Str:=s1;
            l:=0;
            For k:=1 to Length(s1) do
               If s1[k] in sogl then
                  Inc(l);
            slova[c-1].Count:=l;
            s1:='';
         end else
            s1:=s1+s[j];
      end;
   end;
   Memo2.Clear;
   For i:=0 to c-1 do
      Memo2.Lines.Add(Format('%s - %d согласных',[slova[i].Str,slova[i].Count]));
   If c=0 then
   begin
      Memo3.Text:='Нет слов!';
      Exit;
   end;
   k:=slova[0].Count;
   For i:=1 to c-1 do
      If k<slova[i].Count then
         k:=slova[i].Count;
   Memo3.Clear;
   Memo3.Lines.Add('Список слов, в которых количество согласных максимальна ('+
      IntToStr(k)+' согласных):');
   For i:=0 to c-1 do
      If k=slova[i].Count then
         Memo3.Lines.Add(slova[i].Str);
end;

[Serge_Bliznykov]

Вы не ответили, так зачем Вам динамический массив?
Вы какую задачу этим решаете: сделать сложнее или сделать менее эффективно (медленее и занять побольше памяти)?

[come-on]

да тут мягко говоря к любой строке кода вопросы))

[newerow1989]

так зачем Вам динамический массив

Информацию о количестве согласных куда-то надо записывать, поэтому и создаю массив. Далее я обрабатываю эту информацию.

какую задачу этим решаете

Элементарную и проще так, чтобы любому программисту было приятнее читать

к любой строке кода вопросы

К какой именно? Ведь не будете задавать вопросы по некоторым строкам:

begin
end;

?

[Pavia]

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

Для каждого заданного слова указать количество согласных.

А вот, код на функции я бы разбил. Чем больше функций тем более самодокументированным становиться код. Более выразительным. А также вырисовывается иерархическая - древовидная структура. Что также прибавляет выразительности коду. А более выразительный код легче читать и проще понимать.

[come-on]

К какой именно? Ведь не будете задавать вопросы по некоторым строкам:

ну конечно, к таким не надо
но дальше почти ко всем, например

begin
s:=Memo1.Text;
c:=0;

вот эти
зачем первая?
для чего с, без нее обойтись никак?
ну и т.д.
ps: Pavia +1 по поводу последнего абзаца

[newerow1989]

Про s:=Memo1.Text; я убрал (это я по привычке написал).
Для переменной c: можно обойтись и по-другому:

SetLength(slova,High(slova)+2);
slova[High(slova)+1].Str:=s1;

но это дольше писать пришлось, поэтому и создал переменную c

А вот, код на функции я бы разбил

Насколько помню, как учили, функция - это кусок программы, который можно вызывать неоднократно. По мнению Pavia, в программе функция вызовится только 1 раз. Зачем писать лишние функции, если можно ими обойтись?

[Adult_Master]

Пока ждал ответа на свой вопрос в другой ветке накидал свой вариант, проверил, работает)

procedure TForm1.Button1Click(Sender: TObject);
const
 Sogl = ['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var
 S: TStringList;
 i, k, MaxValue, len, count: Integer;
begin
 S := TStringList.Create;
 S.Delimiter := ' ';
 S.DelimitedText := Memo1.Text;

 MaxValue := 0;
 Memo2.Lines.Clear;

 for i := 0 to S.Count - 1 do
  begin
   count := 0;
   len := Length(S[i]);
   if len > MaxValue then
    MaxValue := len;
   for k := 1 to len do
    if AnsiString(S[i])[k] in Sogl then
     Inc(count);
   Memo2.Lines.Add(format('%s - %d согласных', [S[i], count]));
  end;

 Memo2.Lines.Add('Максимальное количество согласных в слове(словах):');

 if MaxValue > 0 then
  for i := 0 to S.Count - 1 do
   if Length(S[i]) = MaxValue then
    Memo2.Lines.Add(S[i]);

 S.Free;
end;

как мало пройдено дорог, так много сделано ошибок !

как - 2 согласных
мало - 2 согласных
пройдено - 5 согласных
дорог, - 3 согласных
так - 2 согласных
много - 3 согласных
сделано - 4 согласных
ошибок - 3 согласных
! - 0 согласных
Максимальное количество согласных в слове(словах):
пройдено

P.S. По уму конечно бы ещё накидать проверок на знаки препинания, и другие символы не считающиеся за слова, ну и приводить все буквы к какому то регистру, или добавить заглавные буквы в множество )