Иследовать область оперделение и построить график функций. Опции

[Credo]

Иследовать область определение и построить график функций 1/x^2-3x+1. Как подогнать под осей x и y. Дело в том что график функций впустую чертица на черном фоне. мне нужно как вот в таком

uses graph;
var gd,gm:integer;
    x0,y0:integer;
    x,y,dx:real;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
x:=-20;
dx:=0.001;
repeat
if abs(x*x-3*x+1)>0.001 then
begin
putpixel(x0+round(x*20) , y0-round(y*20) , 8);
x:=x+0.5 end else
x:=0.5; until x<10;
while x<=20 do
 begin
  y:=x/(x*x-3*x+1);
  putpixel(x0+round(x*20),round(y0-round(y*20)),12);
  x:=x+dx;
 end;
readln;
closegraph;
end.