Натуральное число и последовательность в файле - PascalABC.NET

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

В файле дано натуральное число n. Получить последовательность b1,…,bn, где при i=1,2,…,n значение bi равно 1 + 1/2 + ... + 1/i

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

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

var f:text;
    n:integer;
    b:real;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
append(f);
writeln(f,'');
for var i:=1 to n do
 begin
  b:=1/i;
  write(f,b:8:4);
 end;
close(f);
write('Файл прочитан, результаты вычислений дописаны в него же')
end.

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

В первой строке объявляются три переменные: f, n, b.
Переменная f относится к типу text, она будет использоваться как файловый дескриптор.
Переменная n относится к типу integer, она будет использоваться для подсчета количества элементов в последовательности.
Переменная b относится к типу real, она будет использоваться для хранения дробных чисел.
Вторая и третья строки открывают файл input.txt для чтения и записи соответственно.
Четвертая строка считывает из файла целочисленное значение n.
Пятая строка добавляет новую запись в файл.
Шестая строка выводит пустую строку в файл.
Седьмая строка открывает цикл, который будет выполняться n раз.
Внутри цикла, на каждой итерации, переменной b присваивается значение 1/i, где i - это номер текущей итерации цикла.
Восьмая строка записывает значение переменной b в файл, отводя 4 символа под дробную часть числа и 8 символов под целую часть числа.
Девятая строка закрывает цикл.
Десятая строка закрывает файловый дескриптор.
Одиннадцатая строка выводит сообщение, информирующее о том, что файл был прочитан и результаты вычислений были добавлены в него же.