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

[povaki]

двоичный поиск с выведением кол-ва сравнений. программа всегда выводит кол-во сравнений 4. где ошибка? например, введя ключи от 1 до 16 по порядку, при поиске ключа 8, кол-во сравнений должно =1.

const n = 16;
var i,l,r,x,m: integer;
a:array [1..n] of integer;
begin
for i:= 1 to n do begin
write (i,' число---> ');
read (a[i]);
end; m:=0;
L:=1;
R:=16;
write('введите искомый ключ: ');
read(x);
while L<R do begin
i:= (R+L) div 2;
if a[i]<x then begin
L:=i+1; m:=m+1; end
else begin
R:=i; m:=m+1; end;
end;
if a[R]=x then writeln (r,' ключ = ',x,'; количество сравнений= ', m)
else
writeln ('ключ',x,'отсутствует');
end.

[Аватар]

Проверки на равенство нет, вот цикл и идет до упора

[povaki]

можете помочь исправить?

[Serge_Bliznykov]

так, навскидку, попробуйте:

while L<R do begin
   i:= (R+L) div 2;
   inc(m);
   if a[i]=x then begin R:=i; Break end;
   if a[i]<x then L:=i+1
   else R:=i;
end;