Нарисовать график функции, Ошибка 216 Опции

[Relrin]

Взяв код из форума, решил нарисовать график функции вида: cos(x)/(x+2), однако возникает постоянно ошибка 216

Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;

Var grDriver : Integer;
     grMode : Integer;

   x,y:real;{extended;}
       i:integer;
Begin
  grDriver:=Detect;
  InitGraph(grDriver, grMode, '');
  for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
  for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);

  x:=lgr;
  while x<=pgr do
  begin
   if x<>1 then 
   begin y:=сos(x)/(x+2); 
     writeln(y:1:8);
     putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) 
   end;
   x:=x+shag;
  end;
  readkey;
  closegraph;
end.