график функции

[Ivka]

Помогите пожалуйста!!!В чём моя ошибка?
Задание:

y=2*sqr(x)-x-3
------------
sqr(x)-4

* сделать график, где y<=abs(10);


program uzd1;
uses graph,crt;
const detect=0;
var x,y,Xass,Yass: real;
gd,gm,x0,y0,x11,x12,y11,y12,i,j,c: integer;

m: string;
begin
clrscr;
gd:=detect;
initgraph (gd,gm,' ');
setBKColor(0);

x0:=320;
y0:=240;

line(x0,0,x0,480);
line(80,y0,560,y0);

line(x0-2,10,x0,0);
line(x0+2,10,x0,0);
line(560,y0,550,y0-2);
line(560,y0,550,y0+2);

outtextxy(x0-17,4,'Y');
outtextxy(x0+245,y0,'X');


for i:=-4 to -1 do
begin
str(i,m);
line(x0+50*i,y0-3,x0+50*i,y0+3);
outtextxy(x0+50*i-3,y0+6,m);
end;

for i:=1 to 4 do
begin
str(i,m);
line(x0+50*i,y0-3,x0+50*i,y0+3);
outtextxy(x0+50*i-3,y0+6,m);
end;

outtextxy(x0+10,y0+6,'0');
{y ass iedalijums un vertibas}

for i:=-26 to 26 do line(x0+3,y0+8*i,x0-3,y0+8*i);
for i:=1 to 13 do

begin
j:=2*i;
str(j,m);
outtextxy(x0+10,y0-8*j-3,m);
end;
for i:=-13 to -1 do begin
j:=2*i;

str(j,m);
outtextxy(x0+10,y0-8*j-3,m);
end;

setcolor(11);
setlinestyle(0,0,1);
x11:=x0-4*25;
y11:=round(y0-(2*x11*x11-x11-3)/((x11*x11-4)*8));
c:=0;
for i:=-200 to 200 do
begin
x:=i/50;
if x*x<>2 then y:=(2*sqr(x)-x-3)/(sqr(x)-4)
else begin
y:=100;
setcolor(14);
setlinestyle(1,3,1);
line(x0-50,0,x0-50,480);
line(x0+50,0,x0+50,480);
end;

setcolor(11);
setlinestyle(0,0,1);
x12:=round(x0+x*50);
y12:=round(y0-y*8);
if (abs (y)<=10) then
begin
line(x11,y11,x12,y12);
c:=c+1;
end

else if c<>0 then begin
line(x11,y11,x12,y12);
c:=0;
end;
x11:=x12;
y11:=y12;
end;


setcolor(15);
outtextxy(111,350,'Y=(2*x^2-x-3)/(x^2-4)');

readln;
closegraph;
end.