Метод итерации для уравнений

[Hellgrom]

Помогите пожалуйста.Нужно оформить метод в качестве процедуры.Заголовок процедуры, реализующей метод, должен иметь вид

Procedure metod (a,b,eps:single; f:fun; var x, fx:single);
Где
a, b – левая и правая границы корня,
eps – абсолютная погрешность вычисления,
f – функция, реализующая функцию f(x),
x – найденный корень,
fx – значение функции в корне

вот сама программа

{$N+}
Program metod_iteracie;
uses CRT;

const
      max_iter=2; {максимальное количество итераций}
      a=-2;
      b=-1;
      a1=2.8;
      b1=4 ;

Var
 i:integer;
 x1,x01,eps,eps1,x,x0:single;


Function Fun(x:single):single;
begin
 Fun:=2*x*x*x+3*x*x+4*x+5;
end;
Function Fun1(x1:single):single;
begin
 Fun1:=x1+ln(x1)-0.125*exp(x1);
end;

begin 
 clrscr;
 Writeln('Первое уравнение 2*x*x*x+3*x*x+4*x+5) ');
 Writeln('Второе уравнение x+ln(x)-0.125*exp(x)');
 Writeln;
 Writeln('Введите точность вычислений eps для перовго уравнения=');
 readln(eps);
 Writeln('Введите точность вычислений eps для второго уравнения=');
 readln(eps1);
 repeat
   Write('Введите приближённое значение корня первого уравнения x= ');
   readln (x);
 until (x>a) and (x<=b);
 repeat
   Write('Введите приближённое значение корня первого уравнения  x1= ');
   readln(x1);
 until (x1>a1)    and (x1<b1);
 begin {сам метод}
  i:=0;
  repeat
    x0:=x;
    x:=x0+Fun(x0);
    inc(i);
    Writeln('---Итерация',i:3,'   x=',x:6:4);
    Writeln;
    Writeln('F(x)=',Fun(x):6:4);
    Writeln('Точность=',abs(x-x0):6:4);
  until (abs(x-x0)<=eps) or (i>max_iter);

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

  Writeln;
  writeln;
  writeln;
 begin
  i:=0;
  repeat
    x01:=x1;
    x1:=x01+Fun1(x01);
    inc(i);
    Writeln('---Итерация ',i:3,'   x1=',x1:6:4);
    Writeln;
    Writeln('F(x1)=',Fun(x1):6:4);
    Writeln(' Точность=',abs(x1-x01):6:4);
  until (abs(x1-x01)<=eps1) or (i>max_iter);

 if (abs(x1-x01)<=eps1) then
   Writeln('ЋвўҐв: X=',x1:6:4)
 else
   Writeln('Ответ не найден!За,',max_iter:0,'шагов итерация не сошлась');
end;
end.