Вычислить члены ряда с точностью 10^-6 - Pascal

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

Задана последовательность чисел 1, 1/2, 1/3, 1/4,... Определить величину первых двух рядов стоящих элементов, разность которых меньше 10^-6.(паскаль) я хз, моего школьного уровня не хватает.

Решение задачи: «Вычислить члены ряда с точностью 10^-6»

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

var n:integer;
    a1,a2:real;
begin
a1:=1;
a2:=0.5;
n:=2;
while a1-a2>=0.000001 do
 begin
  a1:=a2;
  n:=n+1;
  a2:=1/n;
 end;
writeln('a1=',a1:14:9);
writeln('a2=',a2:14:9);
writeln('a1-a2=',a1-a2:0:9)
end.

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

Создается переменная 'n' типа 'integer'
Создаются переменные 'a1' и 'a2' типа 'real' и им присваиваются значения:
- 'a1' = 1
- 'a2' = 0.5
Переменной 'n' присваивается значение 2
Начинается цикл 'while', который будет выполняться до тех пор, пока разница между 'a1' и 'a2' больше или равна 0.000001
- В цикле происходят следующие операции:
  - 'a1' присваивается значение 'a2'
  - Значение 'n' увеличивается на 1
  - 'a2' присваивается значение 1/n
После выхода из цикла выводится результат:
- Выводится значение 'a1' с точностью до 9 знаков после запятой
- Выводится значение 'a2' с точностью до 9 знаков после запятой
- Выводится разница между 'a1' и 'a2' с точностью до 9 знаков после запятой