Построить график функции, учитывая точки разрыва

Program Lab112;
   uses crt,graph;
   const s=70;
         xmax=1680;
         ymax=990;
   var gd,gm,xg,yg:integer;
 
   procedure osi;
     begin
       line(10,ymax div 2,xmax-10,ymax div 2);
       line(xmax-20,ymax div 2-10,xmax-10,ymax div 2);
       line(xmax-20,ymax div 2+10,xmax-10,ymax div 2);
       outtextxy(xmax-20,ymax div 2+20,'x');
       line(xmax div 2,10,xmax div 2,ymax-10);
       line(xmax div 2-10,25,xmax div 2,10);
       line(xmax div 2+10,25,xmax div 2,10);
       outtextxy(xmax div 2-20,25,'y');
     end;
    procedure masx;
       var i,z:integer;
     begin
       for i:=-10 to 10 do begin
                         z:=i*s+xmax div 2;
                         line(z,ymax div 2-10,z,ymax div 2+10);
                         end;
     end;
    procedure masy;
        var i,z:integer;
     begin
       for i:=-13 to 13 do begin
                         z:=i*s+ymax div 2;
                         line(xmax div 2-10,z,xmax div 2+10,z);
                         end;
     end;
    procedure grafik;
       var x:real;
     begin
 
        setlinestyle(0,0,3);
        setcolor(5);
        x:=-10;
 
        moveto(round(x*s)+xmax div 2,-round((x-2)/(x+1)*(x-3)*s)+ymax div 2);
        while x<=10 do begin
                         xg:=round((x-2)/(x+1)*(x-3)*s)+xmax div 2;
                         yg:=-round(x*s)+ymax div 2;
                         lineto(xg,yg);
                         x:=x+0.05;
                      end;
 
     end;
 
Begin
clrscr;
  initgraph(gd,gm,'');
  osi;
  masx;
  masy;
  grafik;
  readln;
  closegraph;
End.

f(x)=(x-2)/(x+1)/(x-3)

uses graph;
const xn=-5; {интервал и шаг по Х}
      xk=5;
      dx=0.0001;
      xmax=640;{максимальные и средние значения по осям}
      ymax=480;
      x0=320;
      y0=240;
function f(x:real):real;{функция}
begin
f:=(x-2)/(x+1)/(x-3);
end;
var mx,my:real;{масштабы по осям}
procedure osi;
var i:byte;
    s:string;
begin
line(0,y0,xmax,y0);
line(x0,0,x0,ymax);
outtextxy(xmax-20,y0-20,'X');
outtextxy(x0+5,0,'Y');
outtextXY(x0+5,y0+10,'0');
mx:=(x0-20)/5;
my:=(y0-20)/50;
for i:=1 to trunc(xk)+1 do
 begin
  line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);
  line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
  str(i,s);
  outtextXY(x0+round(i*mx),y0+10,s);
  outtextXY(x0-round(i*mx),y0+10,'-'+s);
  line(x0-3,y0-round(i*my*10),x0+3,y0-round(i*my*10));
  line(x0-3,y0+round(i*my*10),x0+3,y0+round(i*my*10));
  str(i*10,s);
  outtextXY(x0-25,y0-round(i*my*10),s);
  outtextXY(x0-35,y0+round(i*my*10),'-'+s);
 end;
end;
procedure grafik;
var x:real;
begin
x:=xn;
while x<=xk do
 begin
  if(abs(x+1)>dx)and(abs(x-3)>dx) then {исключаем разрывы функции при х=-1 и х=3}
  putpixel(x0+round(x*mx),y0-round(f(x)*my),12);
  x:=x+dx;
 end;
end;
var gd,gm:integer;
begin
initgraph(gd,gm,'');
osi;
grafik;
readln;
end.