Двоичный поиск чисел Фибоначчи

uses crt;
type
    mas=array[0..100]of integer;
    int=integer;
var
   a:mas;
   j,i,k,x,n,p:int;
Procedure bsearch(a:mas; x,n:int);
var i,j,k:int;
begin
     i := 1;
     j := n;
     while i <= j do begin
           k := i + (j - i) div 2;
           if x > a[k] then
              i := k + 1
           else if x < a[k] then
                j := k - 1
           else
               break;
     end;
     if x=a[k] then write(k);
     if (x>a[k]) and (x<a[k+1]) then write(k,'-',k+1);
end;
Begin
     read(n);
     writeln;
     a[1]:=1;
     a[2]:=1;
     write(a[1],'  ',a[2]);
     for i:=3 to n do begin
         a[i]:=a[i-2]+a[i-1];
         write(a[i]:4);
     end;
     writeln;
     for i := 1 to n do
         for j := 1 to n - 1 do
             if a[j]>a[j+1] then
             begin
                  p:=a[j];
                  a[j]:=a[j+1];
                  a[j+1]:=p;
             end;
     writeln;
     readln(x);
     bsearch(a,x,n);
End.

uses crt;
type
    mas=array[1..100]of integer;
    int=integer;
Procedure bsearch(a:mas; x,n:int);
var i,j,k:int;
begin
i := 1;
j := n;
while i <= j do
 begin
  k := (j + i) div 2;
  if x > a[k] then i := k + 1
  else if x < a[k] then j := k - 1
  else   break
 end;
if x=a[k] then write('Искомое число под номером: ',k)
else write('Искомое число между номерами: ',k-1,'-',k);
end;
var a:mas;
    n,x:int;
Begin
repeat
write('Введите число для поиска x>0 x=');
read(x);
until x>0;
writeln;
a[1]:=1;
a[2]:=1;
write(a[1]:5,a[2]:8);
n:=2;
while a[n]<=x do
 begin
  n:=n+1;
  a[n]:=a[n-2]+a[n-1];
  write(a[n]:8);
 end;
writeln;
bsearch(a,x,n);
End.