Turbo Pascal. Помогите написать программу.

Дан файл "README", содержащий текст на русском языке. Выбрать из него и вывести на экран те слова, длина которых меньше введенного пользователем числа.

По дате

По рейтингу

grpusmsq

Высший разум

1г

Вот пример программы на Turbo Pascal, которая выполняет это действие:

```pascal

12345678910111213141516171819202122232425

 program Read_words; 
 
uses crt; 
 
var 
  f: text; 
  s: string; 
  len: integer; 
   
begin 
  writeln('Введите максимальную длину слова:'); 
  readln(len); 
   
  assign(f, 'README'); 
  reset(f); 
   
  while not eof(f) do 
  begin 
    readln(f, s); 
    if Length(s) < len then writeln(s); 
  end; 
   
  close(f); 
end.

```

Эта программа сначала запрашивает у пользователя максимальную длину слова. Затем она открывает файл "README" и читает из него каждую строку. Если длина строки меньше указанного числа, то строка выводится на экран.