Нахождение корней уравнения методом простых итераций

program pol;
 var
 a,b,eps,x,y,z:real;
 function F( x:real):real;
  Begin
    F:= 3*x-14+exp(x)-exp(-x)
  End;
Begin
 writeln('Введите границы интервала и погрешность');
 read(a,b,eps);
 writeln('В интервале: ' ,a:6:2, ',',b:6:2);
 writeln('С погрешностью: ', eps:9:6);
 y:=F(a); {Вычисление значения функции в точке а}
  repeat
  x:=(a+b)/2; {Вычисление координаты середины отрезка}
  z:=F(x); {и нахождение значения функции в этой точке}
  if y*z < 0 {определяем в каком интервале находится корень}
  then
   b:=x {задаём новую границу интервала}
  else
   begin
    a:=x; {задаём новую границу интервала}
    y:=z
   end;
   writeln('Граница a: ',a:2:6, ' Граница b: ',b:2:6,' Найденный корень:',x:2:6);
  until b -a<=eps; {цикл продолжится до того момента,если величина полученного 
  интервала будет меньше заданной погрешности}
  writeln('Корень:',x:10:6, ' f(x) =', z:2:6);
  writeln('Проверка при подстановке x в уравнение:',3*x-14+exp(x)-exp(-x):2:6);
End.

program iter;
 var
 eps,x0,x1,x2 : real;
Begin
Writeln('Введите начальное приближение и погрешность');
Readln(x0,eps);
Writeln('Погрешность: ',eps);
Writeln('начальное приближение: ',x0);
x1:=x0;
repeat
 x2:=x1;
 x1:=(14-exp(x2)+exp(-x2))/3;
until abs(x1-x2) < eps;
 writeln('корень: ', x1);
 Readln;
End.

function f0(x : Real) : Real;
begin
  f0 := 3*x-14+exp(x)-exp(-x);
end;
 
function f(x : Real) : Real;
begin
  f := f0(x) / (1 +exp(x)-exp(-x));
end;
 
const
  De = 10;
  Eps = 0.000000001;
  X0 = 1;
  
var
  X : Real;
  Step : Integer;
  
begin
  X := X0;
  WriteLn('Начальное значение: ', X :0:De);
  Step := 0;
  repeat
    X := X - f(X);
    Inc(Step);
    WriteLn('Шаг ', Step, ' - значение: ', X :0:De);
  until Abs(f(X)) < Eps;
  WriteLn('Корень = ', X :0:De);
  WriteLn('Проверка: ', f0(X) :0:De);
end.