В файле в столбик записаны целые числа - Pascal ABC

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

Помогите пожалуйста решить В файле в столбик записаны целые числа. Напишите программу, которая считает количество чисел, равных данному и выводит результат в конце исходного файла. Буду очень признательна!

Решение задачи: «В файле в столбик записаны целые числа»

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

var
  f: text;
  x, n, k: integer;
 
begin
  Assign(f, '1.txt');
  Reset(f);
  Write('Введите число: '); ReadLn(n);
  while not EOF(f) do
  begin
    ReadLn(f, x);
    if x = n then
      k := k + 1;
  end;
  Close(f);
  Append(f);
  WriteLn(f, k);
  Close(f);
  ReadLn
end.

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

Переменная f устанавливается в значение text.
Переменные x, n, k инициализируются целочисленными значениями.
Устанавливается имя файла в 1.txt.
Считывается состояние файла, которое является начальным состоянием.
Выводится сообщение для ввода числа.
Считывается число от пользователя.
Запускается цикл while, который выполняется до тех пор, пока файл не будет в конце.
Внутри цикла считывается следующее число из файла.
Сравнивается текущее число с числом, введенным пользователем.
Если числа равны, то переменная k увеличивается на единицу.
Цикл while завершается, когда файл достигает конца.
Файл закрывается.
Добавляется символ новой строки в конец файла.
Выводится сообщение с количеством чисел, которые были найдены.
Файл закрывается.
Выводится символ новой строки.