Правильная ли программа (Pascal)? S=1-(2*x)/3+(3*x^2)/4-(4*x^3)/5+...; Si(меньше) eps

program aaa;
uses crt;
var x,t,s,si,p,eps:real;
i: integer;
begin clrscr;
write('enter x: ');
readln(x);
write('enter eps: ');
readln(eps);
si:=0; i:=2;
t:=x;
while (si(меньше) eps) do
begin
p:=(i*t)/(i+1);
si:=si-1*P;
t:=t*(-x);
i:=i+1;
end;
s:=1+si;
writeln('S=',s:3:2);
readln;
end.