Задача с текстовыми файлами в паскале

program Zadanie120;
var
  str: string;    // Переменная для хранения введенной строки.
  ff: text;        // Файловая переменная.
  s1,s3: string;         // Промежуточные переменные для поиска слова.
  d: integer;          //  Переменная для хранения значения счетчика слов.
  F: integer;        //  Переменная для хранения вычисляемого значения.
begin
  s3:='.';
  assign(ff,'C:\Student\1.txt');  // Файловая переменная связывается с именем файла.
  reset(ff);                             //  Файловая переменная устанавливается на чтение файла.
  while not EOF(ff) do
  begin
    Read(ff,s1);               // Чтение строк из файла.
    while pos(s3,s1)<>0 do // Пока такое слово (точка) есть в тексте ...
      begin
        inc(d);             // ... увеличивается счетчик 
        delete(s1,pos(s3,s1),1); // ... удаляется слово (точка) из текста
      end;
  end;
  Close(ff);
  writeln('Введите строку:');
  Readln(str);
  F:= Length(str)*Length(str) - d;      // Вычисление по заданной формуле.
  Writeln('Длина введенной строки: ',Length(str));
  Writeln('Количество точек в файле C:\Student\1.txt : ',d);
  Writeln('Результат вычисления: ',F);
  Readln;
end.