Меняю знак не выводит ничего (Pascal)

[k4k7u3]

Проблема такая, меняю во втором алгоритме хоть что то, или выражение или знак, оно мне не выводит строку ( выделил красным) на экран( в чем проблема?)

program dyhotomiya;
  var h,x,a,b,aa,bb,sig,x1,x2,eps,c: real;
      i:integer;
  const
      t=0.618;
    function
      f(x:real):real;
        begin
          f:=(x*x*x*x)-(45*x*x*x)+(593*x*x)-(1731*x)-6210;
        end;
begin
    writeln ('Введите крайний левый интервал');
          readln (x);
    writeln ('ВВедите шаг');
          readln (h);
    b:=x+h;
    
           if f(b)<f(x) then
              while f(b)<f(x) do
                    begin
                         a:=x;
                         x:=b;
                         h:=h+h;
                         b:=x+h;
                    end
           else
                    begin
                         h:=-h;
                         a:=b;
                         b:=x+h;
                                if f(x)>f(b) then
                                   while f(b)<f(x) do
                                         begin
                                              a:=x;
                                              x:=b;
                                              h:=h+h;
                                              b:=x+h;
                                         end;
                    end;

           if (b<a) then
              begin
                     aa:=b;
                     bb:=a;
              end
           else
               begin
                    aa:=a;
                    bb:=b;
               end;
writeln ('aa=' , aa:2:4   ,  ' bb=' , bb:2:4);
writeln ('введите точность eps');
readln (eps);
i:=0;     /Второй алгоритм/
while (abs(b-a))>eps do
      begin
           i:=i+1;
           sig:=((abs(b-a))/2)-eps;
           c:=(a+b)/2;
           x1:=c-sig;
           x2:=c+sig;
                if f(x1)>f(x2) then
                   a:=x1
                else
                    b:=x2;
      end;
if f(x1)<f(x2) then
   x:=x1
else
   x:=x2;
writeln ('x=' , x:2:4  , ' i=' , i);
readln;
end.

[Hacker19_90]

меняю во втором алгоритме хоть что то, или выражение или знак,

какое выражение? какой знак?

[k4k7u3]

Сообщение от Hacker19_90

какое выражение? какой знак?

sig:=((abs(b-a))/2)-eps;
Например в этой строке хочу что бы было
sig:=(b-a)/2;

а оно мне не выводит результат(

[Hacker19_90]

а не циклится случаем?
В смысле бесконечного цикла не возникает?
Проганите пошагово!