Задача на модуль Опции

[Пашик]

Здравствуйте! У меня простенькая на первый взгляд задача, но... Слишком мутное условие :

Нужно написать модуль, содержащий подпрограмму нахождения корня уравнения f(x)=0 на заданном отрезке [a, b] методом половинного деления, который заключается в следующем. Отрезок [a, b] делится пополам x=(a+b)/2, и определяется значение функции f(x) на концах отрезков [x, b] и [a, x]. Корень находится в той половине [a, b], на концах которой f(x) имеет разные знаки. Если f(a) и f(x) имеют разные знаки, то далее в качестве отрезка, содержащего корень, рассматриваем [a, x], иначе [x, b]. Новый отрезок делится пополам, и такой процесс продолжается до тех пор, пока отрезок не станет меньше заданной погрешности Эпсилон.

Использовать модуль для решения уравнения 5x-8Ln(x)=8 на интервале [4.1, 4.8] с точностью Эпсилон=10^-6

Мой код

Const e=1E-6;
Var a,b,x:Real;
Begin
     a:=4.1;
     b:=4.8;
     Repeat
           x:=(a+b)/2;
           If ((a>0) AND (x<0)) Or ((a<0) AND (x>0)) Then b:=x Else a:=x;
     Until ABS(Abs(a)-Abs(b))<e;
     Writeln(x);
     Readln
End.

Но я так понимаю, что модуль должен возвращать какое-то значение, как функция например? И как его использовать для решения уравнения? Помогите, пожалуйста.

[Гость]

Долго инета не было.... Спасибо всем, разбираюсь.