Pascal метод дихотомии и модули

[Канунникова]

Здравствуйте! Подскажите, пожалуйста, никак не возьму в толк, программа выполняется, но не даёт результата, то есть её выполнение приходится прерывать самостоятельно.
Условия:. С погрешностью 0.001 уточнить методом дихотомии корни уравнений на отрезке [0; 1] и на отрезке [2.5; 4.5].

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 “Процедурный тип”. Процедурный тип и относящиеся к нему под-программы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма." Ну, соответственно, выполнить его относительно этой задачи. Вообще никак не могу взять в толк, как это будет выглядеть

[GetMax]

Function dihotom(a,b:real; f:fun):real;
var x:real;
begin
x:=(a+b)/2;
while (abs(f(x))>e) and (b > a) do
Begin
  if f(a)*f(x)<0 then b:=x
               else a:=x;
  x:=(a+b)/2;
end;
dihotom:=x;
end;

Для функции f2 условие ABS(f(x)) < e не выполняется, поэтому для избежания зацикливания надо отлавливать выход за границы отрезка.

Процедурный тип и относящиеся к нему под-программы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма."

Создаете модуль, описываете в нем процедурный тип и функции f1 и f2. Затем создаете второй модуль, подключаете в нем ранее созданный модуль (uses Имя_первого_модуля) и реализуете в нем функцию dihotom. В основной программе подключаете второй модуль и вызываете из него созданную в нем функцию.

[Канунникова]

Спасибо Вам огромнейшее! Всё поняла.