Определить количество содержащихся в файле n-символьных слов - Turbo Pascal

Формулировка задачи:

Создать текстовый файл, содержащий несколько произвольных строк. Определить количество содержащихся в нем n-символьных слов. Записать эти слова во второй файл.

Решение задачи: «Определить количество содержащихся в файле n-символьных слов»

Листинг программы

const
  n=5;
var
  f,g: text;
  c: char;
  k,i,j,len,cnt: integer;
begin
  randomize;
  assign(f,'f.txt');
  rewrite(f);
  assign(g,'g.txt');
  rewrite(g);
  cnt:=0;
  for k:=1 to random(10) do begin
    for i:=1 to random(20) do begin
      len:=random(10);
      for j:=1 to len do begin
        c:=chr(random(26)+65);
        write(f,c);
        if len=n then
          write(g,c);
      end;
      c:=' ';
      write(f,c);
      if len=n then begin
        write(g,c);    
        inc(cnt);
      end;
    end;
    writeln(f);
  end;
  close(g);
  close(f);
  writeln(cnt);
end.

Объяснение кода листинга программы

В начале кода объявляются необходимые переменные: n, f, g, c, k, i, j, len, cnt.
Затем происходит инициализация генератора случайных чисел и присваивание имени файлов для чтения и записи.
Далее идет цикл, который выполняется 10 раз (для каждого из 10 файлов).
Внутри первого цикла (который выполняется 20 раз) происходит следующее:
- Вычисляется длина каждого символьного слова (len), которая может быть от 1 до 10 символов.
- Для каждого из этих слов (от 1 до 20) генерируется случайный символ (c) и записывается в файл f.
- Если длина слова равна n, то символ также записывается в файл g.
- После окончания записи каждого слова в файл f и g выводится символ пробела и число (cnt), которое увеличивается на единицу после каждой записи.
После завершения внутреннего цикла закрываются файлы f и g.
В конце выводится общее количество слов (cnt).