Дано действительное х. Вычислить приближенное значение бесконечной суммы:х-х/2+х/3-… (|x|<1) - Pascal(Паскаль)

uses crt;
var x,s,t,e:real;
    i:integer;
begin
clrscr;
repeat
write('Введите |x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('Введите 0<e<1 e=');
readln(e);
until (e>0)and(e<1);
s:=0;
t:=1;
i:=0;
while abs(t)>e do
 begin
  i:=i+1;
  t:=x/i;
  if odd(i) then s:=s+t
  else s:=s-t;
 end;
write('Сумма=',s:0:6,' точность=',abs(t):0:6);
readln
end.