Проблема с построение графика arccos.

uses graph;
function ArcCos(x:Real):Real;
var
 tmpArcCos : Real;
begin
 if x =0.0 then { чтобы не было деления на 0 }
 tmpArcCos:= pi/2.0
 else
 tmpArcCos:= ArcTan(Sqrt( 1-x*x)/x);
 if x<0.0 then
 tmpArcCos:=pi-tmpArcCos;
 ArcCos:=tmpArcCos;
end;
 
function F(x:real):real;
begin
F:=8*ArcCos(sqrt(1-sqr(0.1*x))/(0.1*x))/pi;
end;
var xn,xk,x,y,mx,h:real;
    x0,y0,my,i,px,py:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
x0:=getmaxX div 2;{начало координат}
y0:=getmaxY div 2;
xn:=-4*pi;xk:=4*pi;{интервал по Х}
h:=0.001;
mx:=600/(xk-xn);{масштаб по Х}
my:=y0-40;{по У}
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий и текста}
line(0,y0,getmaxX,y0);{ось Х}
line(x0,0,X0,getmaxY);{ось У}
{подписи по оси У}
line(x0-3,y0+my,x0+3,y0+my);
outtextXY(x0-15,y0+my,'-1');
line(x0-3,y0-my,x0+3,y0-my);
outtextXY(x0-15,y0-my,'1');
settextstyle(0,1,1);
for i:=1 to trunc(xk*2/pi)+1 do{кол. засечек на оси Х в 1 сторону}
  begin
    line(x0+round(i*mx*pi/2),y0-3,x0+round(i*mx*pi/2),Y0+3); {засечки}
    line(x0-round(i*mx*pi/2),y0-3,x0-round(i*mx*pi/2),Y0+3);
    str(i*0.4:0:1,s);
    {подписи}
    str(i,s);
    if i=1 then
     begin
      outtextXY(x0+round(i*mx*pi/2),y0+10,'pi/2');
      outtextXY(x0-round(i*mx*pi/2),y0+10,'-pi/2');
     end
    else
     begin
      outtextXY(x0+round(i*mx*pi/2),y0+10,s+'pi/2');
      outtextXY(x0-round(i*mx*pi/2),y0+10,'-'+s+'pi/2');
     end;
  end;
{подписи центра и концов осей}
settextstyle(0,0,1);
outtextXY(x0+5,y0+10,'0');
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0-10,10, 'Y');
setcolor(8);
{график}
x:=xn;
while x<=xk do
 begin
  putpixel(x0+round(x*mx),y0-round(F(x)*my),2);
  x:=x+h;
 end;
setcolor(2);
outtextXY(x0+20,30,'Grafik funktii y=cos(pi/6+x)');
outtextXY(x0+20,50,'na int.[-4pi;4pi]');
readln
end.