Построить график функции y=(7*x^3-15)/(1.5*x+2)

uses graphABC,crt;
function f(x:real):real;
begin
f:=(7*x*x*x-15)/(1.5*x+2)
end;
var x1,x2,mx,my,x,dx:real;
    x0,y0,i:integer;
    s,s1:string;
begin
//вводим интервал чтобы показать характер графика
repeat
write('Начало интервала от -6 до -2 x1=');
readln(x1);
until(x1>=-6)and(x1<=2);
repeat
write('Конец интервала от 0 до 4 x2=');
readln(x2);
until(x2>=0)and(x2<=4);
clrscr;
x0:=round(windowwidth*(-x1)/(x2-x1));//начало координат в центре экрана
y0:=windowheight div 2;
mx:=(windowwidth-40)/(x2-x1);//масштаб по оси Х
my:=(y0-20)/100;// масштаб по оси Y
line(0,y0,2*x0,y0); //оси
line(x0,0,x0,2*y0);
for i:=1 to 10 do //максимальное количество засечек в одну сторону
 begin
  line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));//засечки на оси У
  line(x0-3,y0+round(i*my*10),x0+3,y0+round(i*my*10));
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3); //засечки на оси Х
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  //подпись оси У
  str(i*10,s);
  textout(x0-30,y0-round(i*my*10),s);//оответственно засечкам
  textout(x0-35,y0+round(i*my*10),'-'+s);
  //подпись оси Х}
  str(i,s);
  textout(x0+round(i*mx),y0+10,s);
  textout(x0-round(i*mx),y0+10,'-'+s);
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(2*x0-10,y0-20,'X');
textout(x0+5,0, 'Y');
dx:=0.001;
//график
x:=x1;
while x<=x2 do
 begin
  if abs(1.5*x+2)>0.001 then//если знаменатель не очень близко к 0
  setpixel(x0+round(x*mx),y0-round(f(x)*my),clRed);
  x:=x+dx; //наращиваем х
 end;
end.