Решение уравнения методом Ньютона Pascal

[2Dletti]

Проблема вот в чем. Жалоба на функции, якобы тип реал не нужен, подавай boolean. Изменил..там где идет вычисление частного соответственно пишет ошибку, что такие переменные невозможно поделить.
Что делать, идей уже нет...

Uses crt;
Function f(x : real) : real;
Begin
f := 5*sin(x+x)=sqrt(1-x);
End;
Function f1(x : real) : real;
Begin
f1 := 10*cos(x+x)=-1/(2*sqrt(1-x));
End;
Var
a : real;
b : real;
x : real;
e : real;
en : real;
i : integer;
Begin
clrscr;
writeln ('Решение уравнения');
writeln ('Уравнение 5*sin(x+x)=sqrt(1-x)');
write ('Границы:');
read (a, b);
write ('Точность:');
read (e);
writeln ('решение:');
writeln ('номер шага Значение X');
en := abs(a - b);
x := b;
i := 1;
While (abs(en) > e) Do
Begin
x := x - f(x) / f1(x);
writeln (i : 10, x : 20 : 6);
en := abs(x - b);
b := x;
i := i + 1;
End;

End.

[2Dletti]

Проблему решил..просто мозг вырубился в функциях f и f1 поставил 2 знака равно..