S=1+1/2+1/3+1/4++1/n pascal. решить с циклом while

Program abc;

var
  n, i: integer;
  s: real;

begin
  write('Введите n: ');
  readln(n);
  for i := 1 to n do
    s := s + 1 / i;
  write('s= ', s);
end.