На заданном отрезке найти все корни уравнения f(x)=0 с точностью ε . Free Pascal

[avatar54]

На заданном отрезке найти все корни уравнения f(x)=0 с точностью ε
2*ctg(3x)-2^x=0

[newerow1989]

uses Math;

function f(x:real):real;
begin
   If x=0 then
      Result:=0 else
      Result:=2*CoTan(3*x)-Power(2,x);
end;

const e=0.000001;
      a=-10;
      b=10;
      dx=0.1;
var x,y,x0,y0,x1,y1,dd:real;
begin
   x:=a;
   Repeat
      x:=x+dx;
      y0:=f(x-dx);
      y1:=f(x);
      If y0*y1<0 then
      begin
         x0:=x-dx;
         x1:=x;
         dd:=dx/2;
         y:=f(x1-dd);
         Repeat
            If y0*y<0 then
               x1:=x1-dd;
            If y1*y<0 then
               x0:=x1-dd;
            dd:=dd/2;
            y0:=f(x0);
            y:=f(x0+dd);
            y1:=f(x1);
         Until (Abs(y0-y)<e) or (Abs(y1-y)<e);
         x0:=x0+dd;
         Writeln(x0:5:8,'   ',f(x0):5:8)
      end;
   Until x>=b;
   Readln;
end.

[avatar54]

у меня она почему-то не работает