Построить график функции

uses graphABC;
function F(x:real):real;
begin
F:=x*x*x+x*x+x
end;
 
var a,b,x,dx,mx,my:real;
    x0,y0,i:integer;
    s:string;
begin
a:=1;
b:=2;//интервал по Х
x0:=50;//начало координат по Х
mx:=(windowwidth-x0-30);//масштаб по Х
y0:=windowheight-50;//начало координат по Y
my:=(y0-40)/F(b);
setpenwidth(2);
setpenstyle(psDash);
line(0,y0,windowwidth,y0);//оси
line(x0,0,x0,windowheight);
setpenwidth(1);
for i:=1 to 20 do//максимальное количество засечек в одну сторону
 begin
  line(x0-5,y0-round(i*my),x0+5,y0-round(i*my));//засечки на оси У
  //подпись оси У
  textout(x0-25,y0-round(i*my),inttostr(i));//соответственно засечкам
  line(x0+round((i-1)*mx/10),y0-5,x0+round((i-1)*mx/10),y0+5); //засечки на оси Х
  //подпись оси Х
  str(i/10+1:0:1,s);
  textout(x0+round((i)*mx/10),y0+10,s);
 end;
//центр
textout(x0+5,y0+10,'1.0');//по Х
//подписи концов осей
textout(windowwidth-20,y0-20,'X');
textout(x0+5,0,'Y');
//график
x:=a;
moveto(x0+round((x-1)*mx),y0-round(F(x)*my));
setpencolor(clRed);
while x<=b do
 begin
  lineto(x0+round((x-1)*mx),y0-round(F(x)*my));
  x:=x+0.01;
 end;
//название
textout(250,10,'y=x^3+x^2+x');
textout(250,30,'int.[1;2]');
end.

setpenstyle(psSolid);