{Файл: prog7_1.pas
Задача:
 Словом в строке называется последовательность букв, не
 прерываемая другими символами. Дана строка символов.
 Найти, сколько слов в строке такой же длины, как и
 первое слово
}
const
  Letter : set of char=['a'..'z','а'..'я']; {ножество букв}
var
  s, w: string;
 k: integer;
  i, L, p : integer;
  
  begin
  {Ввод строки}
  writeln('Введите строку');
  readln (s);
  
  {нахождение первого слова}
  L:=length(s); {Длинна строки}
  p:=0; {Длина первого слова}
  i:=1; {Индекс для прохода по строке}
  k:=-1;
  while i<= l do {Пока не конец строки}
    begin
      {Пропуск все символы, не являются буквой}
      while (i<=L) and not (s[i] in Letter) do
        inc (i);
        
     {Выделение по буквам слово w}
     w:='';
     while (i<=L) and (s[i] in letter) do 
      begin
        w:=w+s[i];
        inc(i);
      end;
         
   {Если первое слово не задано }
      if p=0 then
        p:=length(w);       
         
      
    {Проверка равно ли длинна первого слова длинне слову w}
      if p=length(w) then
      inc(k);
    end;
    
    {Вывод ответа}
    if k>0  then
      writeln (k,' такой-же длинны, как и первое')
    else
      writeln('В строке нету словтакой-же длинны, как первое!!!');
end.