метод простых итераций, помогите Опции

[punkska]

. Написать модуль, содержащий подпрограмму нахождения корня
> любого алгебраического или трансцендентного уравнения вида x=f(x)
> при заданном начальном приближении Xo методом простых итераций, в
> соответствии с которым каждое следующее приближение к корню ищется
> по формуле: Xk+1=F(Xk) Итерационный процесс уточнения корня
> заканчивается при достижении условия /Xk+1 - Xk/<E, где E -
> допустимая погрешность вычисления.
> Использовать подпрограмму своего модуля для решения уравнения X-sinX=0.25 при Xo=1.17.


что то не получаеться я вот такой бред придумал

помогите плиз!!! напишите свой выриант!

[punkska]

помогите исправить ошибки!!! очень надо!!
программа -

uses crt,unull;
type ftype=function (x:real):real;
{$f+}
function f(x:real):real;
begin
f:=sin(x)+0.25;
end;
{$f-}
var i:integer;
begin
  clrscr;
  writeln (fun(f,1.17,1.0e-5)5);
  readkey;
end.

модуль

unit Unull;
interface
type ftype=function (x:real):real;
procedure fun(f:ftype; x,eps:real);

implementation

procedure fun(f:ftype; x,eps:real);
var i,max_iter:integer;  x0:real;
begin {основная программа}


 max_iter:=100;
 i:=0;
 repeat

   x0:=x;
   x:=x0+F(x0); {сердце метода итераций}
   inc(i);
   writeln('--- Итерация ',i:3,'   x=',x);
   writeln('F(x)=',F(x),'    точность=',abs(x-x0));
 until (abs(x-x0)<=eps)or(i>max_iter);

 if (abs(x-x0)<=eps) then  writeln('Ответ: X=',x)
 else writeln('Ответ не найден! За ',max_iter:0,' шагов итерация не сошлась.');

end;


Begin
end.

не компилируеться((( помогите