Цикл в Паскале - нужно найти такое наименьшее число n, что 1+1/2+...+1/n>a

[sashabull]

Есть число а.
Нам нужно найти такое наименьшее число n, что 1+1/2+...+1/n>a.

[<- DelpHIFanat ->]

У меня получилось так:

program Project1;

Var
  Sum: Real;
  a, n: LongInt;
begin

  Write('a = ');
  ReadLn(a);

  n:=1;
  Sum:=0;
  While (Sum<a) Do
    Begin
      Sum:=Sum+1/n;
      n:=n+1;
    End;

  If (Sum>=a) Then
    Begin
      Sum:=Sum-1/n;
      n:=n-1;
    End;

  WriteLn('Sum = ', Sum:6:8, '   n = ', n);

  WriteLn('Press ENTER!');
  ReadLn;
end.

[Wicort]

Сообщение от <- DelpHIFanat ->

У меня получилось так:

Во-первых в цикле не "меньше", а "меньше или равно".
Во-вторых не понял смысла условия

If (Sum>=a) Then
    Begin
      Sum:=Sum-1/n;
      n:=n-1;
    End;

[<- DelpHIFanat ->]

Смысл этого условия, что если сумма будет больше, то нужно отнять последнее слагаемое. Я просто невнимательно первый раз посмотрел на условие, и подумал, что сумма должна получиться меньше, чем a. Тогда это условие просто писать не нужно.