Метод итераций: выдается минусовое значение

function f(x:real; n:integer):real;
Begin
  if n=1 then
    f:= tan(0.4*x+0.3)-x*x
  else
    if n=2 then
      f:=x*x*x-3*x*x+6*x-2;
End;
 
function g(x:real; m:integer):real;
Begin
  if m=1 then
    g:=-tan(0.4*x-0.3)/x
  else
    if m=2 then 
        g:=(-x*x*x+3*(x*x)+2)/6
End;
 
function g1(x:real; k:integer):real;
Begin
   if k=1 then
      g1:=(-4*x*cos(x)+4*sin(x))/(x*x)
     
   else
    if k=2 then
                g1:=-1/4*(x-2)*x;
End;
 
function Koren(a,b,e:real; n,m:integer; r:real):real;
var
  x1,x,z,modf:real;
  i:integer;
Begin
  x:=a;
  modf:=abs(g1(x,m));
  if modf>1 then 
    begin
      WriteLn('Этот метод не подходит для решения данного уравнения!');
      WriteLn('Так как |g''(x)|= ',modf:6:5,'>1');
      Koren:=r
    end
  else
  begin
  i:=0;
  repeat      
          x1:=g(x,n);
          z:=x;
          x:=x1;
          inc(i);
   until (abs(z-x1)<=e);
   Write('Количество итераций = ',i);
   Koren:=x;
   end
End;
VAR
   a1,b1,e1,X1:real;
   a2,b2,e2,X2,r:real;
BEGIN
  r:=321.123;
  WriteLn('Решение уравнение "tan(0.4*x+0.3)-x*x"');
  Write ('Введите левую границу :'); readln (a1); 
  Write ('Введите правую границу:'); readln (b1); 
  Write ('Введите требуемую точность:'); read(e1); 
  WriteLn('Решение уравнение "x*x*x-3*x*x+6*x-2"');
  Write ('Введите левую границу :'); readln (a2); 
  Write ('Введите правую границу:'); readln (b2); 
  Write ('Введите требуемую точность:'); readln(e2); 
          WriteLn('_________________________________________');
   
    WriteLn;
    WriteLn('Уравненияе "tan(0.4*x+0.3)-x*x", с точностью = ',e1);
  x1:=Koren(a1,b1,e1,1,1,r);
  if x1<>r then
    begin
  WriteLn(', в диапазоне [',a1,', ',b1,'], корень равен  x= ', X1:10:4);
  WriteLn;
  end;
  WriteLn;
  WriteLn('Уравнение "x*x*x-3*x*x+6*x-2", с точностью = ',e2);
  x2:=Koren(a2,b2,e2,2,2,r);
  if x2<>r then 
    begin
  WriteLn(', в диапазоне [',a2,', ',b2,'], корень равен  x= ', X2:10:4);
 end;
  ReadLn
END.