Дописать в конец исходного файла программы на Паскале количество операторов присвоения, использовавшихся в программе - Pascal

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

В текстовом файле хранится программа, записанная на языке Turbo Pascal. Вычислить и дописать в конец этого файла количество операторов присвоения, использовавшихся в программе. Помогите с написанием программы

Решение задачи: «Дописать в конец исходного файла программы на Паскале количество операторов присвоения, использовавшихся в программе»

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

var f:text;
    s:string;
    i,k:integer;
begin
assign(f,'proga.pas');
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s)-1 do
  if copy(s,i,2)=':=' then inc(k);
 end;
append(f);
writeln(f);
writeln(f,'Количество знаков присваивания=',k);
close(f);
end.

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

Объявлены переменные:
- f типа text, который представляет собой файловый указатель;
- s типа string, которая будет использоваться как буфер для чтения строки из файла;
- i, k типа integer, которые будут использоваться для индексации символов в строке и подсчета количества знаков присваивания.
Установлен файловый указатель f на начало файла proga.pas.
Файл открыт на чтение и позиция чтения установлена в начало файла.
Инициализируется переменная k нулем, которая будет использоваться для подсчета количества знаков присваивания.
Запускается цикл while, который выполняется до тех пор, пока не достигнут конец файла.
В каждой итерации цикла считывается строка из файла в переменную s с помощью функции readln(f, s).
Для каждой буквы в строке проверяется, является ли она знаком присваивания ':=' с помощью функции copy(s, i, 2). Если это так, то к переменной k прибавляется единица.
После окончания каждой итерации цикла, файловый указатель перемещается на следующую позицию с помощью функции skip(f, 1).
После окончания цикла, к файловому указателю f добавляется новая строка с помощью функции append(f).
В файл записывается количество знаков присваивания с помощью функции writeln(f, 'Количество знаков присваивания=', k).
Файловый указатель f закрывается с помощью функции close(f).
Запускается цикл readln, который ожидает ввода данных с клавиатуры.