решение линейных уравнений методом хорд и касательных

[subarimpra]

решить уравнение arctan(x) - 1/(3*(exp(3)*ln(x)))=0 на отрезке [0;1]

Program second;
var a,b,x, eps:real;
function fnx (x:real) :real; begin if x<>0 then
begin
fnx:=arctan(x) - 1/(3*(exp(3)*ln(x)));
end;
function fnp(x:real):real;
begin
fnp:=1/(1+x*x)+1/(x*x);
end;
begin

writeln ('задайте интервал поиска корня');
write ('левая граница a=');
readln (a);
write ('правая граница b=');
readln (b);
write ('требуемая погрешность eps=');
readln (eps);
writeln ( 'исходный интервал', 'a=', a:2:5, 'b=', b:2:5);
writeln ( 'погрешность eps= ', eps:2:5);

repeat
a:=a-fnx(a)*(b-a)/fnx(b)-fnx(a);
b:=b-fnx(b)/fnp(b);
until(b-a)<=eps ;
x:=(a+b)/2;
writeln ('результат вычисления корня комбинированным методом');
writeln ('x=', x:2:5);
writeln (' результат вычисления корня комбинированным методом');
writeln ('x=', x:2:5);
end.

в чем ошибка?

[kaljan775]

я конечно ничего не понимаю в паскале, но, если не ошибаюсь

function fnx (x:real) :real; 
	begin 
	if x<>0 then
		begin
			fnx:=arctan(x) - 1/(3*(exp(3)*ln(x)));
		end;
	end; // вот его, кажется забыли

[subarimpra]

спасибо за ответ но он выдает x=INF