Методом деления отрезка пополам решить уравнение

program calc;
Uses Crt;
 
 
  Begin
    f :=x*x*x-sin(x);
  End;
 
Var
  x, Eps, a, b, c: real;
  n: integer;
 
begin
  ClrScr;
  Writeln('Çíà÷åíèÿ a=-10 è b=10');a:=-10;b:=10;
  WriteLn('Òî÷íîñòü Eps');eps:=0.00001;
 
 
  n := 0;
 
  Repeat
    c := (a + b) / 2;
    If (f(a) * f(c)) < 0 Then b := c
    Else a := c;
    Inc(n)
  Until (b - a) < Eps;
 
  x := (a + b) / 2;
  WriteLn('корень x=', x);
  WriteLn('кол-во делений = ',n);
  ReadKey
end.

program calc;
Uses Crt;
function f(x:real):real;
begin
f:=x*x*x-sin(x);
End;
const eps=0.00001;
      xn=-10;
      xk=10;
Var
  x, x1, a, b, c,dx: real;
  n: integer;
begin
writeln('Решения уравнения x^3=sinx на интервале [-10;10]:');
x:=xn;
dx:=0.001;//разобьем весь интервал на кусочки по 0,001
n:=0;
while x<=xk-dx do
if f(x)*f(x+dx)<0 then//если на концах интервала разные знаки
 begin
  inc(n); //будет корень
  a:=x;  //начало интервала
  b:=x+dx;//конец
  repeat //будем уточнять еого методом бисекции
   c:=(a + b)/2;
   if (f(a) * f(c))<=0 Then b:=c else a:=c;
  until(abs(F(c))<=eps)or((b-a)<eps);
  x1:=(a+b)/2;
  writeLn(n,' корень =', x1:10:6);
  x:=x+dx;//следующий интервал
 end
else x:=x+dx; //если нет корня, пропускаем
if n=0 then write('Корней нет')
end.