Не рисует график функции

Program Grafik;
Uses Graph;
Var dr,md,my,i,d:integer;
     x0,y0,c:integer;
     xk,mx,h,x,y:real;
    patch:string;
    s:string;
 
 
Begin
detectgraph(dr,md);{inicualizacua graph reguma}
initgraph(dr,md,'');
setbkcolor(9);{cuniy fon}
x0:=getmaxx div 2;{cherchenie koordunatnoy setki}
y0:=getmaxy div 2;
setcolor(14);
line(0,y0,640,y0);{linii}
line(x0,0,x0,480);
line(x0,0,315,15);{y-strelki}
line(x0,0,323,15);
line(640,y0,625,235);{x-strelki}
line(640,y0,625,243);
outtextxy(330,5,'y');
outtextxy(630,220,'x');
{razmetka}
xk:=12;
mx:=(x0-30)/xk;
my:=(y0-40);
for i:=1 to 12 do begin
line(x0+round(i*mx),y0-3,x0+round(i*mx),y0+3);{viss ox}
line(x0-round(i*mx),y0-3,x0-round(i*mx),y0+3);
str(i,s);
outtextxy(x0+round(i*mx)-4,y0+10,s);
outtextxy(x0-round(i*mx)-8,y0+10,'-'+s);
 
line(x0-3,y0+round(i*mx)-5,x0+3,y0+round(i*mx)-5);
line(x0-3,y0-round(i*mx)+5,x0+3,y0-round(i*mx)+5);
str(i,s);
outtextxy(x0-20,y0+round(i*mx)-4,'-'+s);
outtextxy(x0-20,y0-round(i*mx)-4,s);
end;
{rucovanie grafika}
h:=0.025;
x:=8;
c:=0;
        while x<=12 do begin
        inc(c);
        if x<10 then y:=(sqrt(x-8)+x)/(sqr(x)-17*x+70)
        else y:=sin(2*x)-cos(2*x)+sqr(sin(x));
        x:=x+h;
        if c<>9 then  if c<>80 then  if c<>81 then
        putpixel(x0+round(x*mx),y0-round((x)*my),4);
        end;
readln;
closegraph;
end.