Бинарный поиск в массиве

[Driver_09]

У меня почему-то неправильно работает бинарный поиск, конкретно выводит "-1" - якобы нет этого элемента...
l - первый элемент массива
r - последний элемент массива
cr- среднее значение
ну я думаю бинарный поиск многие знают, но на всякий случайт напишу:

1)делим массив пополам cr=(r+l)/2
2)если искомый элемент наход правее середины, то делим ещё правую часть пополам и так пока не найдём элемент
3)если искомый элемент левее середины, то делим левую часть пополам, затем ещё пополам пока не найдём элемент.

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

Function poisk_bin(var m:mas; NMAX,v:integer):integer;
var l,r,cr:integer;
begin
l:=1;
r:=NMAX;
while(l<>r) do
begin
cr:=(l+r) div 2;
if (v=m[cr]) then
begin
Result:=cr;
break;
end
else if (v>m[cr]) then
l:=(cr+r) div 2
else
r:=(cr-l) div 2;
result:=-1;
end;

end;

[Z1000000]

Function poisk_bin(var m:mas; NMAX,v:integer):integer;
var l,r,cr:integer;
begin
l:=1;
r:=NMAX;
while(l<>r) do
begin
 cr:=(l+r) div 2;
 if (v=m[cr]) then
  begin
  Result:=cr;
  break;
  end
 else if (v>m[cr]) then
  l:=cr+1; //l:=(cr+r) div 2
 else
  r:=cr-1; //r:=(cr-l) div 2;
result:=-1;
end;

end;

[Driver_09]

почему-то ошибка...

if (v=m[cr]) then
begin
Result:=cr;
break;
end
else if (v>m[cr]) then
l:=cr+1; //l:=(cr+r) div 2
else
r:=cr-1; //r:=(cr-l) div 2;

ему не нравится else, который я выделил жирным шрифтом

[Z1000000]

Убери точку с запятой перед else

if (v=m[cr]) then
begin
Result:=cr;
break;
end
else if (v>m[cr]) then
 l:=cr+1
else
 r:=cr-1;

[Driver_09]

нашёл ошибку, почему компилятор ругался...
но всё равно не правильно...результат -1 или ничего не выводит

[Z1000000]

скинь полный код.

[Driver_09]

ну если полный код, то вот и полное задание:
нужно произв. массив осортировать, и сделать в нём 2 вида поиска: бинарный и интерполяционный.
Второй поиск ещё как-то через раз работает, а вот бинарный нет

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

const NMAX=10;
type mas=array[1..NMAX] of integer;

procedure generate(var m:mas);
var i:integer;
begin
Randomize;
for i:= 1 to NMAX do
m[i]:=Random(99);
end;

procedure show(m:mas);
var i:integer;
begin
for i:=1 to NMAX do
write(m[i],' ');
writeln;
end;


procedure gnome_sort(var m:mas);
var i,tmp:integer;
begin
i:= 1;
repeat
if m[i]<m[i+1] then
begin
tmp:=m[i];
m[i]:=m[i+1];
m[i+1]:=tmp;
if i=1 then i:=i+1
else i:=i-1;
end
else
i :=i+1;
until ( i=NMAX )

end;

Function poisk_bin(var m:mas; NMAX,v:integer):integer;
var l,r,cr:integer;
begin
l:=1;
r:=NMAX;
while(l<>r) do
begin
cr:=(l+r) div 2;
if (v=m[cr]) then
begin
Result:=cr;
break;
end
else if (v>m[cr]) then
l:=cr+1 //l:=(cr+r) div 2
else
r:=cr-1; //r:=(cr-l) div 2;
result:=-1;
end;

end;


Function poisk_inter(var m:mas; NMAX,v:integer):integer;
var L,R,i:integer;
begin
R:=NMAX;
l:=1;
result:=-1;
while (R<>L) do
begin
i:=L+((v-m[L])*(R-L))div(m[R]-m[L]);
if v>m[i] then
L:=i+1
else if v<m[i] then
R:=i-1
else
begin
Result:=i;
break;
end;
end;

end;

var m:mas; v:integer;
begin
generate(m);
write('massiv:');
show(m);
gnome_sort(m);
write('sortirovka:');
show(m);
write('vv chislo:' ); readln(v);
writeln('inter N=',poisk_inter(m,NMAX,v));
writeln('binar N=',poisk_bin(m,NMAX,v));
readln;
end.

[Z1000000]

Function poisk_bin(var m:mas; NMAX,v:integer):integer;
var l,r,cr:integer;
begin
l:=1;
r:=NMAX;
repeat
  cr:=(l+r) div 2;
  if (v=m[cr]) then
    begin
    Result:=cr;
    Exit;
    end
  else if (v>m[cr]) then
   r:=cr-1
  else
   l:=cr+1;
until ( l=r );
if m[l] = v then result := l else result:=-1;
end;

[Driver_09]

работает прога теперь