Найти наименьший положительный корень уравнения методом половинного деления

program MetodPolDel;
 
var
  a, b, e, x, z: real;
  Ier: integer;
 
function F(x: real): real;
begin
  F := cos(x)-1/x+ 1.2 end;
 
procedure PolDel(a, b, e: real; var x: real; var Ier: integer);
var
  k:integer;
  c:real;
begin
  Ier := 0;
  if F(a) * F(b) > 0 then begin
    Ier := 1;
    Exit
  end; 
  k := 0;repeat
    c := (a + b) / 2;k := k + 1;
    if k > 80 then Ier := 2;
    if F(a) * F(c) > 0 
      then a := c
    else b := c; until (abs(b - a) < e) or (k > 80);x := (a + b) / 2 end;
 
begin
  a := 0;
  b := 0.3; 
  e := 0.0001;
  PolDel(a, b, e, x, Ier);writeln('x=', x:7:7);writeln('F(x) = ', F(x):7:7);write('Ier=', Ier); 
end.

const eps = 1e-8; dx = 0.1; digits = 10;
function f(x : Real) := cos(x) - 1/x + 1.2;
begin
  var x0 := eps;
  while sign(f(x0)) = sign(f(x0+dx)) do x0+=dx;
  if abs(f(x0)) < eps then begin WriteLn(x0); Halt; end;
  var x1 := x0+dx;
  if abs(f(x0)) < eps then begin WriteLn(x0); Halt; end;
  var x : Real;
  while abs(x1-x0) > eps do
    begin
      x:=x0+(x1-x0)/2;
      if sign(f(x0)) <> sign(f(x)) then x1 := x else x0 := x;
    end;
  WriteLn(x:0:digits);
end.