Вычисление значения функции с помощью разложения функции в степенной ряд Pascal(Паскаль)

    var x,eps,t,y:real;
        n:integer;
    begin
    repeat
    write('Введите |x|<1  x=');
    readln(x);
    until abs(x)<1;
    repeat
    write('eps>0 eps=');
    readln(eps);
    until eps>0;
    if eps>=abs(x)then y:=2*x
    else
     begin
      n:=0;
      t:=x;
      y:=t;
      while abs(t)/(2*n+1)>eps do
       begin
        n:=n+1;
        t:=t*x*x;
        y:=y+t/(2*n+1)
       end;
      y:=2*y;
     end;
    writeln('Сумма=',y:0:6);
    write('Аналитически Ln((1+x)/(1-x))=',ln((1+x)/(1-x)):0:6);
    end.