Не правильно находит синус по формуле Маклорена с минусовыми значениями икс

var
  a, b: real;                        {на лишние перемены внимание не обращайте}
  y, x: real;
  h, p: real;
  y1, y2, y3: real;               //y2 - сумма членов ряда по формуле Маклорена, т.е синус; y3 - встроенный синус
  d: real;                            // член ряда из формулы Маклорена
  m, i, n: integer;
 
begin
  p := 1;
  write('Введите a:');
  readln(a);
  write('Введите b:');
  readln(b);
  write('Введите m:');
  readln(m);
  h := (b - a) / m;
  for i := 0 to m do begin
    x := a + i * h;
    //sin
    d := x;
    y2 := d;
    n := 1;
    while abs(d) > 0.000000000000000001 do
    begin
      d := -d * sqr(x) / (2 * n * (2 * n + 1));   //из предыдущего члена ряда вывожу следующий
      y2 := y2 + d;
      n := n + 1
    end;
    y3 :=sin(x);
    write('x', i, '= ', x:3:5, '   ', 'y', i, '= ', y2, '     ', 'y', i, '= ', y3);
    writeln;
  end;
end.

n := 0;

var a,b,h,x,y1,y2,y3,d:real;
    m,i,n:integer;
begin
repeat
writeln('Введите интервал a<b');
readln(a,b);
until a<b;
repeat
write('Введите количество разбиений m>1 m=');
readln(m);
until m>1;
h:=(b-a)/m;
for i:=0 to m do
 begin
  x:=a+i*h;
  //sin
  d:=x;
  y2:=d;
  n:=0;
  while abs(d)>0.0001 do
   begin
    n:=n+1;
    d:=-d*sqr(x)/(2 * n * (2 * n + 1));   //из предыдущего члена ряда вывожу следующий
    y2:=y2+d;
   end;
  y3:=sin(x);
  writeln('x',i:2,'=',x:6:2,' y',i:2,'=',y2:8:4,' y',i:2,'=',y3:8:4);
 end;
end.

var a,b,h,x,x1,y1,y2,y3,d:real;
    m,i,n:integer;
begin
repeat
writeln('Введите интервал a<b');
readln(a,b);
until a<b;
repeat
write('Введите количество разбиений m>1 m=');
readln(m);
until m>1;
h:=(b-a)/m;
for i:=0 to m do
 begin
  x:=a+i*h;
  x1:=x;
  if x1<-pi then while x1<-pi do} x1:=x1+pi
  else if x1>pi then while x1>pi do x1:=x1-pi;
  //sin
  d:=x1;
  y2:=d;
  n:=0;
  while abs(d)>0.0001 do
   begin
    n:=n+1;
    d:=-d*sqr(x1)/(2 * n * (2 * n + 1));   //из предыдущего члена ряда вывожу следующий
    y2:=y2+d;
   end;
  y3:=sin(x);
  writeln('x',i:2,'=',x:6:2,' y',i:2,'=',y2:8:4,' y',i:2,'=',y3:8:4);
 end;
end.

var
  a, b, x, sum, slog : Real;
  n, m, d : Integer;
begin
  Write('a b m : '); Read(a, b, m);
  for n := 0 to m do
  begin
    x := a + (b - a) / m * n;
    if (x < 2*pi) or (x > 2*pi) then
      x := x - Trunc(x / 2 / pi) * 2 * pi;
    
    d := 1;
    slog := x;
    sum := slog;
    repeat
      inc(d, 2);
      slog := -slog*x*x/d/(d-1);
      sum := sum + slog;
    until abs(slog) < 1e-8;
    
    WriteLn('sin(', a + (b - a) / m * n:7:4, ') = ', sin(a + (b - a) / m * n):7:4,
    '    sum = ', sum:7:4, '    отклонение = ', abs(sum-sin(a + (b - a) / m * n)):7:4);
  end;
end.