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

uses graphABC;
const
x1=-6;//начало и конец графика в реальных значениях
x2=6;
var m,x,dx,y:real;
    x0,y0,px,py,i,k:integer;
    s,s1:string;
begin
x0:=windowwidth div 2;//начало координат в центре экрана
y0:=windowheight div 2;
m:=(y0-20)/x2;//масштаб
line(0,y0,2*x0,y0); //оси
line(x0,0,x0,2*y0);
for i:=1 to trunc(x2) do //максимальное количество засечек в одну сторону
 begin
  line(x0-3,y0-round(i*m),x0+3,y0-round(i*m));//засечки на оси У
  line(x0-3,y0+round(i*m),x0+3,y0+round(i*m));
  line(x0+round(i*m),y0-3,x0+round(i*m),y0+3); //засечки на оси Х
  line(x0-round(i*m),y0-3,x0-round(i*m),y0+3);
  str(i,s);
  //подпись оси У
  textout(x0-25,y0-round(i*m),s);//оответственно засечкам
  textout(x0-25,y0+round(i*m),'-'+s);
  //подпись оси Х}
  textout(x0+round(i*m),y0+10,s);
  textout(x0-round(i*m),y0+10,'-'+s);
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(2*x0-10,y0-10,'X');
textout(x0-10,10, 'Y');
dx:=0.001;
//график
x:=x1;
while x<=x2 do
 begin
  if abs(x)>0.001 then//если х не очень близко к 0
  setpixel(x0+round(x*m),y0-round(1/x*m),12);
  x:=x+dx; //наращиваем х
 end;
end.