Решение уравнения с одной неизвестной методом секущих: не работает локализация корня

uses crt;
Const h=0.5; {шаг для локализации корня}
var {переменные}
  a,b,eps:real;
  x0,x:real;
  k:integer;
  IntArr:array of real; {массив для локализации корня}
 
function f(x:real):real; {функция, корни которой нужно найти}
begin
  f:=power(2,x)-power(x,2)-0.5;
end;
 
procedure LokKorn(a,b:real);{локализация корней}
var
  i:integer;
begin  
  i:=0;  
  repeat    
    begin      
      if f(a)*f(a+h)<=0 then      
      begin        
        i:=i+1;        
        Setlength(IntArr,i); {оператор, предназначенный для изменения массива}        
        IntArr[i-1]:=a;  {размерности динамического массива}        
      end;      
      a:=a+h;      
    end;    
  until a>b;  
end;
 
begin
  write('Введите a=');
  readln(a);
  write('Введите b=');
  readln(b);
  write('Введите eps=');
  readln(eps);
  LokKorn(a,b);
  k:=0;
  x:=a; 
  repeat
    x0:=x;
    k:=k+1;
    x:=x0-(f(x0)/(f(x0)-f(b)))*(x0-b);
    writeln(k,'  ',x);
  until abs(x-x0)<=eps;
  writeln('X=',x);
end.

function f(x:real):real; //функция, корни которой нужно найти
begin
  f:=power(2,x)-power(x,2)-0.5;
end;
function secant(a,b,e:real):real;//функция определения корня методом секущих
var x,x0:real;
begin
x:=a;
repeat
x0:=x;
x:=x0-(f(x0)/(f(x0)-f(b)))*(x0-b);
until abs(x-x0)<=e;
secant:=x;
end;
var a,b,x,eps,dx,x11,x12:real;
    i:integer;
begin
a:=-7;//начало интервала
b:=7;//конец интервала
eps:=0.0001; //точность
dx:=0.1; //идем по интервалу с шагом 0.1
x:=a;
i:=0;
while x<=b do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then //если знаки функции разные на концах отрезка
   begin
    i:=i+1;
    writeln('X',i,'=',secant(x11,x12,eps):8:5);//уточняем корень
   end;
  x:=x+dx;
 end;
end.