Построить график функции на паскале

[momentow]

Дана функция y:=arccos(x) надо построить её по точкам на паскале. Помогите пожалуйста доделать. Поскольку арккосинуса в паскале нет, его можно выразить через следующую процедуру:

function Arccos (x : real) : real;
begin
Arccos := Arctan(Sqrt(1-sqr(x))/x);
end;

Ось координат рисуется примерно так:

uses
crt,graph;
const
s:array[1..5] of string=('','pi','','pi/2','pi/4');
s1:array[1..5] of string=('','','','','');
a:array[1..4] of string=('0.5','1','','');
a1:array[1..4] of string=('','','-1','-0.5');
var
d,r,i,x1,x2,y1,y2:integer;
begin
clrscr;
d:=detect;
initgraph(d,r,'');
setbkcolor(15); {zadaem cvet ekrana}
setcolor(7);
x1:=40;
x2:=40;
y1:=40;
y2:=40;
{risuem setku}
while x1<=600 do
begin
setcolor(7);
setlinestyle(0,0,1);
line(0,y1,640,y2);
line(x1,0,x2,480);
setcolor(8);
setlinestyle(0,0,3);
line(315,y1,325,y2);
line(x1,235,x2,245);
x1:=x1+40;
x2:=x2+40;
y1:=y1+40;
y2:=y2+40;
end;
{risuem osi koordinat}
setcolor(8);
setlinestyle(0,solidln,3);
line(0,240,640,240);
line(320,0,320,480);
line(320,0,317,20);
line(320,0,323,20);
line(640,240,620,237);
line(640,240,620,243);
{podpisivaem osi koordinat}
settextstyle(1,0,2);
outtextxy(330,5,'Y');
outtextxy(620,250,'X');
outtextxy(297,245,'O');
y1:=37;
y2:=277;
for i:=1 to 5 do
begin
outtextxy(275,y1,s[i]);
outtextxy(265,y2,s1[i]);
y1:=y1+40;
y2:=y2+40;
end;
settextstyle(10,1,2);
x1:=365;
x2:=165;
for i:=1 to 4 do
begin
outtextxy(x1,250,a[i]);
outtextxy(x2,250,a1[i]);
x1:=x1+40;
x2:=x2+40;
end;