Найти корни уравнения в заданном интервале

function f(x: real): real;
begin
  f := 2 * sqr(x) + 0.1 * x - 3;
end;
 
var
  x, x1, x2: real;
 
begin
  x := -10;
  while x < 10 do
  begin
    if f(x) * f(x + 1) < 0 then
    begin
      write('Интервал [', x:0:0, ',', x + 1:0:0, '] корень=');
      x1 := x;
      x2 := x - 0.1;
      while (x1 <= x + 1) and (x2 = x - 0.001) do
      begin
        if f(x1) * f(x1 + 0.001) < 0 then x2 := x1
        else x1 := x1 + 0.001
      end;
      writeln(x2:0:3);
    end;
    x := x + 1;
  end;
end.

const a=-10;
      b=10;
      eps=0.001; //точность определения корня
function f(x:real):real;
begin
f:=2*x*x+0.1*x-3;
end;
function Bisec(xn,xk:real):real; //функция уточнения корня методом бисекции
var x,c:real;
begin
repeat
c:=(xn+xk)/2;
if F(xn)*F(c)<0 then xk:=c
else xn:=c;
until xk-xn<eps;
Bisec:=(xn+xk)/2;
end;
 
var x,dx,x11,x12:real;
    i:integer;
begin
dx:=0.1; //идем по интервалу с шагом 0.1
x:=a;
i:=0;
while x<=b do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then //если знаки функции разные на концах отрезка
   begin
    i:=i+1;
    writeln('X',i,'=',Bisec(x11,x12):6:3);//уточняем корень
   end;
  x:=x+dx;
 end;
end.