ряды Тейлора

[Katmai]

Написал программу, вроде должно все правильно считать, но не считает...

Укажите где ошибка....

program Lab15_2;
const max_n=500;
var u1,u2,s,x,e,xp,xk,dx:real;
    n,h,i:integer;
begin
xp:=1;
xk:=2;
dx:=0.1;
x:=xp;
h:=round((xk-xp)/dx) + 1;
writeln('-------------------------------');
writeln('|    X    |    Y    |    N    |');
writeln('-------------------------------');
for i:=1 to h do begin
e:=0.000005;
s:=1;
u2:=1;
n:=1;
while  (abs(u2) > e) and (n <> max_n) do begin
    u1:=u2;
    u2:=-u1*sqr(x)/((2*n+2)*(2*n+3));
    s:=s+u2;
    n:=n+1;
    end;
    writeln('|',x:6:2,'   |',s:9:3,'|',(n):5,'    |',(sin(x)/x):8:3);
    writeln('-------------------------------');
    x:=x+dx;
end;

readln;
end.