Cho S = 1 + 1/2 + 1/3 + ... + 1/n. Nhập vào số thực A hãy tìm số nguyên dương n nhỏ nhất sao cho S > A Giúp mình vs Thanks!

uses crt;
var s:real; a,n:longint;
begin 
clrscr;
   write('Nhap A: ');readln(a);
   n:=0;
   while s<=a do 
      begin 
         inc(n);
         s:=s+1/n;
      end;
   writeln(n);
readln
end.

uses crt;
var tong: real;
    sonho: real;
    i: real;
begin
     clrscr;
     write('Nhap so ma ban can do chinh xac: ');
     readln(sonho);
     while (tong < sonho) do
     begin
          i:=i+1;
          tong:=tong+(1/i);
     end;
     write('Ket qua: ',i:0:0);
     readln;
end.