Найти в файле f1 все заменяемые слова и заменить их на соответствующие заменяющие - PascalABC.NET

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

Даны два символьных файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 40 слов, которые разделены запятыми. Эти слова образуют пары: каждое первое слово считается заменяемым, каждое второе слово - заменяющим. Найти в файле f1 все заменяемые слова и заменить их на соответствующие заменяющие. Результат поместить в файле g.

Решение задачи: «Найти в файле f1 все заменяемые слова и заменить их на соответствующие заменяющие»

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

begin
  var ws := ReadAllText('f2.txt',Encoding.UTF8).Split(',');
  WriteAllText('g.txt', Regex.Replace(ReadAllText('f1.txt',Encoding.UTF8), 
                                      '\w+', m -> begin 
                                                    var ix := ws.IndexOf(m.Value);
                                                    Result := ix = -1 ? m.Value : ws[ix + 1]
                                                  end));
end.

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

Прочитать содержимое файла 'f2.txt' и сохранить его в переменную ws (строка, разделенная запятыми).
Прочитать содержимое файла 'f1.txt' и сохранить его в переменную m (строка, содержащая все символы, которые являются словами).
Заменить все слова в строке m на соответствующие слова из строки ws.
Сохранить измененную строку в файл 'g.txt'.