Pascal. Найдите ошибку.

[saysmonic]

Условие:Даны длины двух сторон треугольника и угол между ними. Используя теорему косинусов, найти два других угла треугольника. Расчет угла производить в подпрограмме.
Решение:
Program Tcos;
uses crt;
function Arccos(x:real):real;
Begin
Arccos:=(sqrt(1-sqr(x)/x));
end;
function Xsqrt(x,y,z:real):real;
Begin
Xsqrt:=((sqr(y)+sqr(z)-sqr(x))/(2*x*y));
end;
Var a,b,c,Ab,Bb,Cb,x,Ax,Bx,ay,by:real;
Begin
Writeln ('a,b,c');
readln (a,b,Cb);
Cb:=Cb*(180/pi);
c:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(Cb));
Ax:=Xsqrt(a,b,c);
Bx:=Xsqrt(b,a,c);
Ab:=arccos(Ax);
Bb:=arccos(Bx);
ay:=Ab*(pi/180);
by:=Bb*(pi/180);
Writeln('вRаR-~ =',c:5:6);
Writeln('?R< ?=',Ab:4:5);
Writeln('?R< ?=',Bb:4:5);
writeln('ygl a=',Ay:4:5);
readkey;
End.

Проблема:
я где то допустил ошибку и программа считает неверно, помогите исправить