построение графика

[salwator]

Помогите пож-та найти ошибку
У меня не строит 2 графика,выводит ошибку вещественное переполнение
вот код,написан в ABC-Pascal

program grafik;
uses crt,graphABC;
var x1,y1,z1,x2,y2,z2,i,xk,xn:integer;
x,y,z,b,dx:real;
begin
clrscr;
write('Введите начальное x:');
readln(xn);
write('Введите конечное x:');
readln(xk);
write('Введите шаг:');
readln(b);
write('Введите точность:');
readln(dx);
x:=xn;
i:=1;
line(100,0,100,479-100);
line(100,479-100,679,479-100);
x2:=0;
y2:=0;
while x<xk do
begin
x1:=round(x*100);
if abs(x)>1 then
begin
while (1/((2*i+1)*exp((2*i+1)*ln(x))))<>dx do
begin
y:=y+(1/((2*i+1)*exp((2*i+1)*ln(x))));
inc(i);
end;
y1:=round(y*50);
SetPenColor(clred);
line(100+x2,379-y2,100+x1,379-y1);
y2:=y1;
end;
begin
if ((x-1)<>0) and ((x+1)/(x-1)>1) then
z:=arctan(x)+b;
z1:=round(z*50);
SetPenColor(clgreen);
line(100+x2,379-z2,100+x1,379-z1);
z2:=z1;
end;
x2:=x1;
x:=x+b;
end;
readln;
end.