задача о замене слов в файле Опции

[tryno]

Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст.
Слова в тексте разделены пробелами и знаками препинаниями.
Файл f2 содержит не более 30 слов, которые разделены запятыми.
Эти слова образуют пары: каждое второе является синонимом первого.
Заменить в файле f1 те слова, которые можно, их синонимами.
Результат поместить в новый файл.

[Lapp]

Рекомендую описать файлы как file of char, а потом читать их посимвольно, заполняя слово пока идут подряд буквы. При встече первого небуквенного символа:
- в случае f1: сверять слово со словарем синонимов;
- в случае f2: заносить слово в словарь синонимов.

То есть примерно такая конструкция для чтения:

const
  Letters=['A'..'Z','a'..'z'];
var
  f:file of char;
  c:char;
  s:string;
...
  s:='';
  while not EoF(f) do begin
    Read(f,c);
    if c in Letters then s:=s+c else if s<>'' then begin
      {тут делаем, что надо}
      s:=''
    end
  end;

Разумеется, сначала читаем f2, а потом f1.
Для словаря нужно завести массив строк, можно двумерный - для наглядности алгоритма.