{* Задача 61 *}

Unit ZADACH61;
Interface
Implementation
Begin
 writeln('В строке состояцих из слов определить колличество слов, имеющих длинну, равную длинне первого слова (первое слово не учитывается)');
End.

Program zadach61;

Uses zadach61.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s      : String;
  s1     : String;
  s_temp : String;
  i      : integer;
  l1     : integer;
  c      : integer;
Begin
  Readln(s);
  / / вводим строку    s := Trim(s) + ' ';
  / / обрезаем пробелы и добавляем в конце технологический    s_temp := '';
  / / будет текущим словом    s1 := '';
  / / будет самым большим словом    l1 := 0;
  c := 0;
  For i := 1 To Length(s) Do {* Увеличиваем i от 1 до Length(s) с шагом 1 *}
  Begin
    If s[i] = ' ' Then
    Begin
      / / учитывается только пробел. другие знаки через Or сам пропишешь...
      If l1 > 0 Then
        If Length(s_temp) = l1 Then
          inc(c); {* c++ *}
      If l1 = 0 Then
        l1 := Length(trim(s_temp));
      s_temp := '';
    End;
    Else Begin
      s_temp := s_temp + s[i];
  End;
  
End;
  Writeln(c);
  readln; {* Ждем нажатия Enter *}
  End....