Уточнить один из корней уравнения методом хорд (Pascal)

[Killreg]

Уточнить один из корней уравнения cosx=0.1x . методом хорд

[Killreg]

Помогите думаю здесь что-то надо подправить

uses crt;
var x,eps,a,b,c:real;
n:integer;
function f(x:real):real;
begin
f:=cos(x)=0.1*x;
end;
begin
clrscr;
writeln('vvedite zna4enie a i b');
readln(a,b);
writeLn('vvod to4nosti eps');
readln(eps);
clrscr;
n := 0;
repeat
c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
if f(a)*f(c) > 0 then a:= c
else b := c;
Inc(n)
until abs((f(b)*a-f(a)*b)/(f(b)-f(a))-c)<eps;
x := c;
writeLn('korenx=', x:10:7);
writeLn('kol-vo iteracii =  ',n);
readkey
end.

___________

1) тема должна отражать суть задачи.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!
Модератор.

[Высокочтимый]

uses crt;
var x,eps,a,b,c:real;
n:integer;
function f(x:real):real;
begin
f:=cos(x);
end;
begin
clrscr;
writeln('vvedite zna4enie a i b');
readln(a,b);
writeLn('vvod tochnosti eps');
readln(eps);
clrscr;
n := 0;
repeat
c:=(f(b)*a-f(a)*b)/(f(b)-f(a));
if f(a)*f(c) > 0 then a:= c
else b := c;
Inc(n)
until abs((f(b)*a-f(a)*b)/(f(b)-f(a))-c)<eps;
x := c;
writeLn('korenx=', x:10:7);
writeLn('kol-vo iteracii =  ',n);
readkey
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.