Подсчитать количество предложений в файле - Turbo Pascal

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

Тема: Файлы. Создать текстовый файл. Подсчитать количество предложений в нем. Помогите написать полностью программу

Решение задачи: «Подсчитать количество предложений в файле»

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

var i,n:longint;
    s:string;
    f:text;
begin
 assign(f,'doc.txt');
 reset(f);
 n:=0;
 while not eof(f) do
  begin
   readln(f,s);
   for i:=1 to length(s)-1 do
    if (s[i]<>'.')and(s[i+1]='.') then inc(n);
  end;
 close(f);
 writeln('Predlogeniy: ',n);
end.

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

Переменные i, n и s объявлены как длинные целочисленные типы данных.
Строка файла, с которым мы работаем, задается как 'doc.txt'.
Функция reset(f) устанавливает файл f в начальное состояние.
Переменная n инициализируется значением 0.
В цикле while не происходит ошибок (не EOF), мы читаем строку s из файла f с помощью функции readln(f, s).
Затем мы проверяем каждый символ в строке s, начиная с индекса 1 и до конца строки.
Если текущий символ не является точкой ('.') и следующий символ является точкой ('.'), мы увеличиваем значение переменной n на 1 с помощью функции inc(n).
После завершения цикла while, мы закрываем файл f с помощью функции close(f).
Мы выводим результат подсчета предложений, используя функцию writeln(,'Predlogeniy: ',n).