{* Cлова с заданным количеством символов *}

Unit SLOVACOL;
Interface
Implementation
Begin
 writeln('Вывести все слова с заданным количеством символов');
End.

Program z1;

Uses slovacol.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
label 1, 2, 3, 4;
Var {* Необходимые переменные *}
  a   : String;
  i   : integer;
  j   : integer;
  n   : integer;
  max : integer;
  k   : integer;
  x   : Array[1..100] Of String;
  s   : Array[1..100] Of String;
Begin
  clrscr; {* Очистка экрана *}
  readln(a);
  readln(k);
  i := 1;
  n := 1;
  For j := 1 To 100 Do {* Переменная j увеличивается с 1 до 100 *}
  Begin
    x[j] := '';
    s[j] := '';
  End;
  While ilength(a) Then
    Goto 4;
  Until a[i]' ';
  3 : Repeat
  If a[i]' ' Then
    Goto 2;
  i := i + 1;
  If i > length(a) Then
    Goto 4;
  Until a[i] = ' ';
End;
  4:
For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
  For i := 1 To length(x[j]) Do {* Цикл для i => [1 .. length(x[j])] *}
    If x[j][i]' ' Then
      s[j] := s[j] + x[j][i];
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  If length(s[i]) = k Then
    writeln(s[i]);
readkey; {* Нажмите любую клавишу *}
End....