Проблема с графиком в паскале

Здравствуйте. Есть исходник в котором нужно построить график с двумя границами: (-2:2)

uses graph;
const
x1=-2;
x2=2;
F=1;
var
x,dx,y:real;
mx,my,x0,y0,grD,px,py,grM,i,c:integer;
s,s1:string;
begin
grD:=detect;
initgraph(grD,GrM,'');
X0:=320; Y0:=240;
mx:=10; my:=10;
setlinestyle(0,0,1);
line(10,y0,630,y0);
line(x0,10,x0,470);
setlinestyle(1,0,0);
for i:=1 to 14 do
begin
line(10,y0-i*20,630,y0-i*20);
line(10,y0+i*20,630,y0+i*20);
line(x0+i*20,10,x0+i*20,470);
line(x0-i*20,10,x0-i*20,470);
str(i*f,s);
str(-i*f,s1);
outtextXY(320+i*20,230,s);
outtextXY(320-i*20,230,s1);
outtextXY(324,240+i*20,s1);
outtextXY(324,240-i*20,s);
end;
outtextXY(getmaxX-20, (getmaxY div 2)+5, 'X');
outtextXY((getmaxX div 2)-10,5, 'Y');
dx:=0.001;
x:=x1;
while x<x2 do
begin
y:=sqr(x)*sqr(x)+4*sqr(x)*x-14*sqr(x)-36*x+45;
px:=x0+round(x*mx);
py:=240-((y0+round(y*my/f))-240);
Putpixel (px,py,100);
x:=x+dx;
end;
readln;
end.

Собственно график как то неверно строится((( Помогите пожалуйста, у меня чего то невыходит... Что неверно, как исправить?