{* Удаление из строки слов заданной длины *}

Unit UDSTR;
Interface
Implementation
Begin
 writeln('Удаление из строки слов заданной длины');
End.

Program pas0;

Uses udstr.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s   : String;
  len : integer;
  i   : integer;
  j   : integer;
Begin
  write('Input String: ');
  readln(s);
  len := length(s);
  i := 1; {начинаем с первого символа в строке}
  j := 0; {сначала длина слова равна нулю}
  While i 5}
    i := i + 1; {переходим к следующей букве}
  j := 0; {обнуляем длину слова}
End;

  End;

  End;
If j < 5 Then {если последнее слово < 5 букв}
  delete(s, i - j, j);
writeln(s);
readln
End.....