Дан текстовый файл f. Удалить из файла все слова, длина которых равна N - PascalABC.NET

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

Даны текстовый файл f . Удалить из файла все слова , длина которых равна N.

Срочно помогите

Решение задачи: «Дан текстовый файл f. Удалить из файла все слова, длина которых равна N»

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

uses System.Io;
const n=5;
      FileName='r1.txt';
begin
  &File.WriteAllText(FileName,Regex.Replace(&File.ReadAllText(FileName,Encoding.Default),
  '(\b\w{'+inttostr(n)+','+inttostr(n)+'}\b)',''),Encoding.Default);
end.

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

Импортируется пространство имен System.Io.
Константа n инициализируется значением 5.
Файл, с которым будет производиться работа, определяется как 'r1.txt'.
В блоке begin начинается выполнение программы.
Метод WriteAllText из пространства имен System.Io используется для записи в файл 'r1.txt' текста, полученного в результате работы метода Replace.
Метод ReadAllText из пространства имен System.Io используется для чтения содержимого файла 'r1.txt' в строку.
В качестве аргумента метода Replace используется регулярное выражение '(\b\w{'+inttostr(n)+','+inttostr(n)+'}\b)', которое означает найти слова, длина которых равна N.
В качестве замены для найденных слов используется пустая строка ''.
Метод Replace возвращает измененную копию исходной строки.
Результат работы метода Replace записывается в файл 'r1.txt' с помощью метода WriteAllText.
Программа завершается.