Уравнение методом половинного деления с погрешностью Е=10^-5 - PascalABC.NET

var
  A, B, C, EPS: real;
  {A,B-концы отрезка[A,B];EPS - абсолютная
  дoпустимая погрешность результата.}
function f(x: real) := 2.8 - cos(1 / x) - x;
 
begin
  (a, b) := readreal2('Задайте  интервал:');
  if f(a) * f(B) < 0  then {Проверка наличия корней на заданном интервале}
  begin
    EPS := readreal('дoпустимая погрешность=');
    while ABS(A - B) > EPS do { Начало цикла ПОКА}
    begin
      println(' A=', A, '  B=', B);
      C := (A + B) / 2;
      if f(C) <> 0 then
      begin
        if f(C) * f(B) < 0 then
          A := C
        else
          B := C
      end
      //else
        //a := c;
    end;
    print(' Корень=', A);
  end
  else
    print('Интервал задан неверно, на нём нет корней');