Алгоритм для вычисления функции - Pascal

Формулировка задачи:

Нужен алгоритм для вычисления этой функции y(x)=|arcsin(x+5)|. Делал по примеру с форума,но чёт не получается,ошибка. Вот само решение. (Ссылка на сторонний ресурс удалена) А вот ошибка. (Ссылка на сторонний ресурс удалена) Ошибка вроде в arcsin:=arctan(x/sqrt(1-(x+5))); Спасибо!)

Решение задачи: «Алгоритм для вычисления функции»

Листинг программы

var x,y:real;
begin
repeat
write('-6<=x<=-4 x=');
readln(x);
until(x>=-6)and(x<=-4);
if x=-4 then y:=pi/2
else if x=-6 then y:=-pi/2
else y:=arctan((x+5)/sqrt(1-sqr(x+5)));
write('y=',y:0:3);
end.

Объяснение кода листинга программы

Объявляются две переменные типа real: x и y.
Запускается цикл repeat-until, который будет выполняться до тех пор, пока x не станет больше -6 и меньше -4.
Внутри цикла выводится сообщение -6<=x<=-4 x= и считывается значение x.
Проверяется условие x = -4. Если оно истинно, то присваивается значение y = pi/2.
Если условие x = -6 истинно, то присваивается значение y = -pi/2.
Если условия из пункта 4 и 5 не выполняются, то присваивается значение y = arctan((x+5)/sqrt(1-sqr(x+5))).
Выводится значение y с точностью до трех знаков после запятой.
Цикл repeat-until завершается, когда выполняется одно из условий из пункта 4 или 5.