Дописать программу для нахождения корня ур-ния методом деления отрезка пополам

[Lost_Neko]

Нужно написать программу для для нахождения корня ур-ния методом деления отрезка пополам с заданной точностью, используя оператор repeat until. дана определенная функция x^2-4+cosx=0. Сама программа почти закончена, нужно лишь вставить в нее эту функцию, но без оператора(или как он там называется) function. Может, можно присвоить эту программу определенной переменной(f, например)? Еще мне нужно сделать что-то со строчкой if (f(a)*f(b)<0) then b:=c. Я думаю, она нужна будет только после введения функции.
Третью неделю сижу с этой программой, кто может, помогите. Заранее спасибо

program 1;
var a, b, c, x: real;
eps: real;
begin
writeln('vvedite a');
writeln('vvedite b');
readln(a);
readln(b);
writeln('vvedite zadannuyu tochnost eps');
readln(eps);
repeat
c:=(a+b)/2;
if (f(a)*f(b)<0) then b:=c
else a:=c
until
(b-a) <= eps;
x:= (a+b)/2;
writeln('x:=', x:2:4);
readln
end.

[rubius2008]

...
if ((a*a-4+cos(a))*(b*b-4+cos(b))<0) then b:=c
else a:=c
...