Найти с заданной точностью сумму ряда

uses crt;
var x,e,t,s:real;
    k:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=abs(x) then s:=x
else
 begin
  k:=0;
  t:=x;
  s:=t;
  while abs(t)/(2*k+1)>e do
   begin
    k:=k+1;
    t:=-t*x*x/k;
    s:=s+t/(2*k+1);
   end;
 end;
write('S=',s:0:4);
readln
end.

write('x='); //вводим любое х
readln(x);
repeat
write('e>0 e=');//вводим точность >0,желательно малую,типа 0.000001
readln(e);
until e>0;
if e>=abs(x) then s:=x//если точность больше модуя первого члена, то не считаем
else //иначе
 begin
  k:=0;//нулевой цлен
  t:=x; //его значение
  s:=t;//сумма
  while abs(t)/(2*k+1)>e do//пока модуль очередного члена, деленный на  2*k+1) >e
   begin
    k:=k+1;//рчередной номер
    t:=-t*x*x/k;//у предыдушего значения меняем знак (*(-1)^k),
                //умножаем  на x^2 (*x^(2k+1)) и делим на k=k!
    s:=s+t/(2*k+1);//делим на  2*k+1) и суммируем
   end;
 end;
write('S=',s:0:4);

t:=-t*x*x/k;//делим на очередное k(1,2,3,4...)получаем k!