Непонятная ошибка в точности вычисления arccos

var
    n:integer;
    x, s, t, e: real;
begin
    e := 0.000001;
    Readln(x);
    s := x;
    t := x;
    n := 0;
    if abs (x)  < 1 then begin // -1 <= x <= 1
        while (abs(t) > e ) do begin
      inc(n);
      t := t * sqr(x) * (2*n-1)/((2*n)*(2*n+1));
            s := s + t;
        end;
        s := Pi/2 - s;
        writeln('arccos (', x,') = ', s);
        writeln(Arctan(Sqrt(1-sqr(x))/x)  );
    end else
        writeln('Error'); 
end.

program Project1;
{$APPTYPE CONSOLE}
 
uses
   SysUtils, Math;
 
function MyArcSin(X : double) : double;
const
   eps = 0.00001;
var
   i : integer;
   v, curr : double;
begin
   i := 0;
   Result := x;
   curr := x;
   repeat
      inc(i);
      curr := curr * sqr(x) * (2*i - 1) / 2 / i;
      v := curr / (2*i + 1);
      Result := Result + v;
   until v < eps;
end;
 
const
   eps = 0.000001;
var
   x : double;
begin
   write('X (-1 .. 1) = '); readln(x);
   // Тут можешь проверять, входит ли введенное значение в интервал -1 .. 1
   writeln(MyArcSin(x):10:6);
   writeln(arcsin(x):10:6); // Проверка
   readln;
end.

const eps = 0.00001;
function MyArcSin(x:double):double;
var i:integer;
   curr:double;
begin
  i:= 0;
  Result:=x;
  curr:=x;
  repeat
    inc(i);
    curr := curr*x*x*(2*i-1)*(2*i)/(4*i*i);
    Result:= Result + curr/(2*i+1);
  until curr/(2*i + 1)<eps;
end;
 
var x:double;
begin
  repeat
    write('|x|<1, x = '); readln(x);
  until abs(x)<1;
  writeln(MyArcSin(x):10:6);
  writeln(arcsin(x):10:6);
  readln;
end.