поиск методом половинного деления(рекурсия) Опции

[anonim]

ни кто не хочет алгорит поиска делением пополам преобразовать из простого в рекурсивный????буду очень благодарен

Код

program dsfsdf;
uses crt;
type mas=array[1..10] of integer;
var  n,j:integer;a:mas; x:integer;i:integer;
function dixotom(a:mas;x:integer;var i:integer):boolean;
  var l,r,m:integer;
  begin
   l:=1;r:=n;
    repeat
     m:=(l+r) div 2;
     if a[m]<x
      then l:=m+1
      else r:=m-1;
   until (a[m]=x) or (l>r);
   dixotom:=a[m]=x;i:=m;
  end;
  begin   clrscr;
   writeln('введите длину массива');
   readln(n);
    for j:=1 to n do
    read(a[j]);
    writeln('введите элемент x');
    readln(x);

   if dixotom(a,x,i)=true
    then writeln('элемент найден ',i)
    else writeln('не найден');  readkey;
end.