двоичный поиск Опции

[maksimla]

Задание
Предположим, имеем первичных цифр массив. Напишите функцию, реализующую алгоритм двоичного поиска в таком массиве. Результаты функции - элемент массива, который равен функции аргументу, номер или 0.


я так непонел результаты какие надо вывести пример можете написать

[maksimla]

а теперь процедуру сказали сделать я сделал но одна ошибка есть. Ошибку не нашел но добавил единицу и все в порядке можете сказать что не так я сделал?

это двоичный поиск

program rasti;
 const max=100;
 type masyv=array [1..max] of integer;
 var   x:masyv;
   a,n,i:integer;
       c:text;
 procedure poisk(m:masyv; max,j:integer);
 var  tr:boolean; i1,i2:integer;
 begin
  tr:=false;
  i1:=1; i2:=max+1;
  while (i1<i2) and (not tr) do
  begin i:=(i1+i2)div 2;
  if x[i]=a then tr:=true
  else if x[i]<a then i1:=i+1
            else i2:=i;
end;
   if not tr then
    writeln('v masyve x cisla ',a,' netu')
  else
   writeln('Skaiciui ',a,' lygus ',i,' masyvo narys');
 end;

begin
   assign(c,'test.txt');
  Reset©;
  Readln(c,n);
  for i:=1 to n do
  begin
  read(c,x[i]);
  writeln(i:4,' ',x[i]);
  end;
  write('vvedite iskomoe cislo ');
  readln(a);
  poisk(x,n,a);
 readln
end.

числа записаны в файл в возвращающем порядке и если в поиск вводишь самое последнее число то оно не находится при в процедуре i2:=max а если плюс один то все в порядке странно можете объяснить что не так я сделал.