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

[maksimla]

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


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

[maksimla]

перегрелся я уже вот программка все работает сечас надо както поиск в функцию перевести

 program Bevarde2;
const count =10;
m:array [1..count] of byte=(10,9,8,7,6,5,4,3,2,1);
var n,i,first,last,a:integer;
    found:boolean;
begin
  WriteLn('massiv uporedocennij');
  for i:= 1 to count do write(m[i]:3,' '); writeln; writeln;
  write('vvedite cislo kotoroe icete');
  readln(n);
  first:=1;
last:= count;
 found:= false;
 repeat
 i:=(first +last) div 2;
 writeln(i);
 if m[i] = n then found:=true
 else
 begin
 if m[i]>n then first :=i+1
 else last:=i-1
 end;
 until (found= true) or (first>last);
 if found then writeln ('iskomii',n,'v massive',i)
 else
 writeln('netu cisla ',n,'v massive');
 Readln;
end.

непонел этого как это в незу что выводить надо
Результаты функции - элемент массива, который равен функции аргументу, номер или 0.