поиск и вывод (Pascal)

[hawk68]

В исходном файле подсчитать количество слов стоящих после точки. В file2 вывести построчно все найденные слова.

помогите выполнить основную часть, вот начало сделал, думаю сделать поиск точки, затем искать до первой буквы и выводить в файл до первого пробела и т.д но не могу организовать этот цикл, может можно что попроще сделать, подскажите

begin
  repeat
    write('Введите имя первого файла для чтения: ');
    readln(name1);
    AssignFile(f1,name1);
    {$I-}
    ReSet(f1);
    {$I+}
    ok := IOResult = 0;
    if not ok then writeln('Ошибка! Повторите ввод!');
  until ok;
  write('Введите имя файла для записи результата: ');
  readln(name2);
  AssignFile(f2,name2);
  ReWrite(f2);





  CloseFile(f1);
  CloseFile(f2);
  write('Press Enter...');
  readln;
end.