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

uses graphABC;
function f(x:real):real;
begin
f:=1/x
end;
 
var c,i:integer;
    x,m:real;
begin
//определим размер экрана
setwindowsize(500,500);
//расположим его в центре экрана
centerwindow;
//определим центр графика
c:=windowwidth div 2;
m:=(c-20)/10;//его масштаб
line(0,c,2*c-10,c);//и оси
line(c,10,c,2*c);
//делаем разбивку на осях
for i:=1 to 10 do
 begin
  line(c+round(i*m),c-3,c+round(i*m),c+3);
  line(c-round(i*m),c-3,c-round(i*m),c+3);
  textout(c+round(i*m),c+10,inttostr(i));
  textout(c-round(i*m)+5,c+10,inttostr(-i));
  line(c-3,c-round(i*m),c+3,c-round(i*m));
  line(c-3,c+round(i*m),c+3,c+round(i*m));
  textout(c-20,c-round(i*m),inttostr(i));
  textout(c-25,c+round(i*m),inttostr(-i));
 end;
textout(c-10,c+10,'0');
line(c,0,c-5,10);
line(c,0,c+5,10);
line(c-5,10,c+5,10);
floodfill(c,5,clBlack);
textout(c+8,0,'Y');
line(2*c,c,2*c-10,c-5);
line(2*c,c,2*c-10,c+5);
line(2*c-10,c-5,2*c-10,c+5);
floodfill(2*c-5,c,clBlack);
textout(2*c-8,c-20,'X');
//построим левую ветку графика y=1/x
setpencolor(clRed);
setpenwidth(2);
x:=-10;
moveto(c+round(x*m),c-round(f(x)*m));
while x<0 do
 begin
  lineto(c+round(x*m),c-round(f(x)*m));
  x:=x+0.1;
 end;
//построим правую ветку графика y=1/x
x:=0.1;
moveto(c+round(x*m),c-round(f(x)*m));
while x<=10 do
 begin
  lineto(c+round(x*m),c-round(f(x)*m));
  x:=x+0.1;
 end;
end.