Вычислить сумму всех 1/k, для натуральных k - Pascal

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

Помогите с задачей пожалуйста, никак не могу решить(( Вычислить сумму всех 1/k, для натуральных k.

Решение задачи: «Вычислить сумму всех 1/k, для натуральных k»

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

program pr;
var
  s: real;
  k, i: integer;
begin
  s := 0;
  writeln('Введите k');
  readln(k);
  i := 1;
  repeat
    s := s + 1 / i;
    i := i + 1;
  until i > k;
  writeln('Сумма: ', s);
end.

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

Объявляется переменная s типа real, где будет храниться сумма.
Объявляются переменные k и i типа integer для хранения значения k и счетчика цикла соответственно.
Программа запрашивает у пользователя ввести значение k.
Инициализируется переменная i значением 1.
Начинается цикл repeat..until, в котором происходит следующее: a. Сумма s увеличивается на 1 деленное на i. b. Значение переменной i увеличивается на 1. c. Цикл повторяется пока значение i не станет больше чем k.
Программа выводит сообщение суммы Сумма: и значение суммы s.