График на паскале

uses crt,graph;
const
x1=-4;{начало и конец графика в реальных значениях}
x2=4;
var
mx,my,a,x,dx,y1,y:real;
x0,y0,grD,px,py1,grM,i,k:integer;
s,s1:string;
begin
clrscr;
writeln('Grafik functii x^3*6');
readln;
grD:=detect;
initgraph(grD,grM,'');
X0:=getmaxX div 2;{начало координат в центре экрана}
Y0:=getmaxY div 2;
{коэффициенты по осям для перевода реальных координат в экранные}
mx:=590/(x2-x1);{длина в пикселах по оси Х/реальная длина(с небольшим отступом от краев)}
my:=240/(x2*x2*x2*6);{половина длины оси по У/(максимум функции(с небольшим запасом))}
SetBkColor(7); {цвет фона}
setlinestyle(0,0,1);{сплошная линия}
SetColor(1);{цвет линий осей}
line(10,y0,640,y0); {ось Х}
line(x0,480,x0,0); {ось У}
setlinestyle(1,0,0);  {пунктирная линия}
Setcolor(9);  {цвет сетки}
for i:=1 to 4 do   {максимальное количество засечек в одну сторону}
   begin
    line(10,y0-i*58,630,y0-i*58);     {засечки на оси У}
    line(10,y0+i*58,630,y0+i*58);
    line(x0+i*73,0,x0+i*73,480); {засечки на оси Х}
    line(x0-i*73,0,x0-i*73,480);
    {подпись оси У}
    str(i*100,s);
    outtextXY(x0+5,y0-i*58,s);{соответственно засечкам}
    outtextXY(x0+5,y0+i*58-10,'-'+s);
    {подпись оси Х}
    str(i,s);
    outtextXY(x0+i*73,y0+10,s);
    outtextXY(x0-i*73,y0+10,'-'+s);
  end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
dx:=0.001;
x:=x1;
while x<=x2 do
   begin
     px:=x0+round(x*mx); {изменение по оси Х}
     y1:=x*x*x*6; {график в реальных координатах}
     py1:=y0-round(y1*my);{в экранных}
     putpixel(px,py1,12);
     x:=x+dx; {наращиваем х}
   end;
readln;
closegraph
end.

dx:=0.001;//это шаг вычислений
x:=x1;//абцисса первой точки
while x<=x2 do//пока не дошли до конца
   begin
     px:=x0+round(x*mx); {изменение по оси Х, к точке х0,середине оси Х прибавляем(а если отрицательное, то вычитаем)
округленное до целого значение х, умнженное на масштабный коэффициент, типа -1.005*коэффициент}
     y1:=x*x*x*6; {график в реальных координатах}
     py1:=y0-round(y1*my);{в экранных, также как и х}
     putpixel(px,py1,12);{рисуем точку с вычисленными экранными координатами ярко-красным цветом(12)}
     x:=x+dx; {наращиваем х}
   end;