Корень уравнения

[Lonase]

В программе нужно использовать оператор Repeat Until
Нужно найти некий корень уравнения методом деления по полам с заданной точностью.
То есть мы должны ввести a(максимальное значение по y) b(минимальное значение по y) е(заданная точность (0.000 и т.д.))
Должен вывести x(сам корень)
Все это находится по формуле x'2-4cosx=0
Все это выполняется при условии A*B<0
Прошу помощь, нужна срочно, если нужно даже заплачу!

[GetMax]

Const
  epsilon = 0.0001;
Var
  x,y1,y2,q,z:real;
  a,b:Real;
  SqrtNotFound:Boolean;
begin
  try
    Readln(b,a);
    x:=a;
    z:=b;
    q:=(a+b)/2;
    SqrtNotFound:=false;
    Repeat
      y1:=Sqr(q)-4*cos(q);
      y2:=Sqr(a)-4*cos(a);
      if y2 * y1 < 0  then b:=q
                      else a:=q;
      q:=(a+b)/2;
      if q >= b  then
      Begin
        SqrtNotFound:=true;
        Break;
      End;
    Until  abs(y1) < epsilon ;
    if Not SqrtNotFound then Writeln('Koren na otrezke ',x:2:0,' .. ',z:2:0,' = ',q:6:4)
                         else Writeln('Koren ne sushestvuet');