Методом хорд вычислить с точностью e корень уравнения

uses Crt;
var x,eps,a,b,x1,c:real;
function F(x:real):real;
begin
f:=2/(sqr(3*sin(2*x)))-3/(sqr(4*cos(2*x)))}
end;
 
 
 
function Chord(a,b:real):real;{метод хорд}
 begin
   Chord:=(f(b)*a - f(a)*b)/(f(b) - f(a))
 end;
begin
clrscr;
writeln('Введите границы интеграла;');
write('a=');readln(a);
write('b=');readln(b);
write('Введите начальное приближение x1=');
readln(x1);
write('Введите точность eps=');
readln(eps);
 
repeat
   c:=Chord(a,b);
   if f(a)*f(c) > 0 then a := c
   else b := c;
until abs(Chord(a, b) - c) < eps;
x := c;
writeLn('X=',Chord(a,b):10:7);
readln
end.

begin
f:=2/(sqr(3*sin(2*x)))-3/(sqr(4*cos(2*x)));
end;

program rgr3;
var a,b,c,y,EPS:real;
function f(x:real):real;
begin
f:=2/(sqr(3*sin(2*x)))-3/(sqr(4*cos(2*x)))
end;
begin
repeat
write('a=');
readln(a);
write('b=');
readln(b);
write('EPS=');
readln(EPS)
until (a>0) and (b>0) and (EPS>0);
if f(a)*f(b)<0 then
        begin
        repeat
        c:=a-(b-a)/(f(b)-f(a))*f(a);
        y:=f(c);
        if f(a)*f(c)<0 then b:=c else a:=c;
        until abs(f(c))<=EPS;
        writeln('C=',c:7:2)
        end
               else
writeln('>EPS');
readln
end.