Построить графики функции y=(9-x)(5-x). Подскажите, где ошибка

Program Grafik;
uses GraphABC;
Var i,x0,y0,k: integer;
    x,y: real;
    x1,y1:longint;
Begin
    setWindowSize(640,640);
   x0:=320; y0:=320; k:=27;
    // оси координат // 
    line(x0,20,x0,620);   line(20,y0,620,y0);
   // стрелочки на концах графика //
    line(620,y0,610,y0-10);  line(620,y0,610,y0+10);
    line(20,y0,30,y0-10);  line(20,y0,30,y0+10);
    line(x0,620,x0-10,610); line (x0,620,x0+10,610);
    line(x0,20,x0-10,30);  line(x0,20,x0+10,30);
 for i:=-10 to 10 do
       begin
       line(x0+(i*k),y0-10,x0+(i*k),y0+10);
       if i<>0 then
       textout(x0+(i*k),y0+10,inttostr(i));
       end;
for i:=-10 to 10 do
       begin
       line(x0-10,y0+(i*k),x0+10,y0+(i*k));
       if i<>0 then textout(x0-20,y0+(i*k),inttostr(-i));
       end;
       setPenColor(clRed);
       textout(150,150,'y=(9-x)(5-x)');
   x:=-10;  { начальное значение аргумента }
   While x<=10 do
   begin
     if (x<>5) or (x<>-5) then begin
     y:=(9-x)/(5-x); { функция }
     x1:=trunc(x0+x*k);  y1:=trunc(y0-y*k); { экранные координаты }
     circle(x1,y1,2);
     x:=x+0.01;
   end;
   end;
end.