Метод дихотомии

[Олькин]

Здравствуйте! Подскажите, пожалуйста, никак не возьму в толк, программа выполняется, но не даёт результата, то есть её выполнение приходится прерывать самостоятельно

program zadacha_2;
const e=0.001;
type fun=function(x:real):real; {процедурный тип}
{$F+}{директива дальней компиляции}
function f1(x:real):real; {функция для первого уравнения }
begin
if (x<>-1) then {если х равно -1, то на ноль делить нельзя, поэтому проверка}
f1:=x-1/(5*(x+1))
else f1:=0
end;
function f2(x:real):real; {функция для второго уравнения}
begin
f2:=exp(x)-x*x*x;
end;
{$F-}{отмена директивы}
Function dihotom(a,b:real; f:fun):real;
var x:real;
begin
x:=(a+b)/2;
while abs(f(x))>e do
begin
if f(a)*f(b)<0 then b:=x
else a:=x;
end;
dihotom:=x;
end;
begin
writeln ('Корень первого уравнения = ', dihotom(0,1,f1):5:3);
writeln ('Корень второго уравнения = ', dihotom(2.5,4.5,f2):5:3);
readln;
end.

и посмотрите, пожалуйста, вот задание "Запрограммировать решение соответствующего варианта задания из темы № 2 “Процедурный тип”. Процедурный тип и относящиеся к нему под-программы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма." Ну, соответственно, выполнить его относительно этой задачи. Вообще никак не могу взять в толк, как это будет выглядеть

[Selyd]

Отсутствует
while abs(f(x))<e надо уйти