Для заданного положительного e и заданного x вычислить сумму ряда с точностью e

uses crt;
var xn,xk,x,dx,e,y,s,t:real;
    n:integer;
begin
repeat
writeln('Ââåäèòå ãðàíèöû èíòåðâàëà (-1;1)');
read(xn,xk);
until(xn>-1)and(xk>xn)and(xk<1);
repeat
write('Ââåäèòå øàã òàáóëÿöèè <',xk-xn:0:1,' dx=');
read(dx);
until dx<xk-xn;
repeat
write('Ââåäèòå òî÷íîñòü e>0 e=');
read(e);
until e>0;
clrscr;
x:=xn;
while x<=xk+dx/2 do
 begin
  y:=4*exp(ln(1+x)/4)-4;
  n:=1;
  t:=x;
  s:=t;
  while abs(t)>0 do
   begin
    n:=n+1;
    t:=-t*x*(4*n-5)/(4*n);
    s:=s+t ;
   end;
  writeln('x=',x:5:1,'  y=',y:7:3,'  s=',s:7:3);
  x:=x+dx
 end;
end.

var n,i:integer; Y,a,Sum,x:real;
   Const e=0.01;
begin
writeln('x=');
readln(x);
n:=1;
a:=(-(4*n-5)/(4*n))*(exp(n*ln(x)));
Y:=4*exp(1/4*(ln(1+x)))-4;
 
while a>e do 
  begin
  for i:= 2 to 10 do
  
   a:=((4*i-5)/(4*i))*(exp(i*ln(x)));;//считаем очередной член ряда
   Sum:=1+a;  //считаем сумму
  end;
  if Sum=Y then writeln ('Sum=Y') else writeln ('Sum не равна Y');
writeln('Summa=',Sum,'  Y=',Y);
readln
end.