Написать в паскале программу, которая считает значение выражения x-1/x+x-2/+x-n/nx при заданных x и n

Var x,s,a:real; n,i:integer;
begin
write('x=');readln(x);
write('n=');readln(n);
s:=0;
for i:=1 to n do
  begin
 a:=-(x-i)/(i*x);
 s:=s+a;
 end;
writeln('s=',s:5:2);
end.

Пример:
x=1.5
n=10
s= 3.74