Бинарный поиск в 1мерном массиве, ошибка в программе из книги

[ILDAR@GIZmo]

Люди помогите, требуется составить программулину ищет элемент в массиве при помощи бинарного поиска.
Нашел такую в книжке - но она почемута не работает ((
Помогите понять где тут ошибка))
p/s/ прога просил ввести искомый элемент Q и 10 элементов массива
и в зависимости от того какую цифру вводишь, по разному выдаёт результат...

program bin;
const m=10;
var i,a,b,q:integer;
p:array[1..m] of integer;
begin
write('vvod Q ');
readln(q);
for i:=1 to M do
begin
write('vvod ',i,' elementa massiva ');readln(p[i])
end;
a:=0;
b:=m;
i:=(a+b)div 2;    {opredelenie seredini intervala}
{cikl do vstreci p[i]=q ili do nylevogo intervala a=i}
while (p[i]<>q) and (a<i) do
begin
if q>p[i] then a:=i else b:=i;
i:=(a+B)div 2;   {ceredina nowogo intervala}
if a=i then writeln('v massive net znacenia ',q)
else writeln('nomer ',i,' znacenie ',q)
end;
end.

[kommunist]

program massiv;
uses crt;
const
  n=10;
var
  a:array[1..n] of integer;
  q:integer;   { образец поиска}
  verh:integer; { верхняя граница }
  niz: integer; { нижняя граница }
  sred:integer;   {средний элемент }
  found:boolean; { TRUE — есть ли в массиве число}
  i:integer;
begin
 writeln('введите число q');
 readln(q);
 for i:= 1 to n do
begin
  a[i]:=random(10);
  write(a[i],' ' );
  end;
  for i:= 1 to n do
begin
 verh:=1; 
 niz:=n;
 repeat
 sred:=Trunc ( (niz-verh) /2)+verh;

 if a[sred] = q then found:=TRUE else
 if q < a[sred]
 then niz:=sred-1 else verh:=sred+1; 
until (verh > niz) or found;
 if found
 then
 writeln('совпадает с элементом под номером',sred)
 else writeln('такого элемента в массиве нет');
 readln;
end;
end.

[puporev]

Извините, не то написал.

[ILDAR@GIZmo]

И так для покалений:
Нахождение номера элемента массива при помощи бинарного поиска.
Алгоритм заточен под отсортированный массив по убыванию.

program massiv;
uses crt;
const
  n=10;
var
  a:array[1..n] of integer;
  Q:integer;   { образец поиска}
  verh:integer; { верхняя граница }
  niz: integer; { нижняя граница }
  sred:integer;   {средний элемент }
  found:boolean; { TRUE ? есть ли в массиве число}
  i:integer;
begin
 writeln('введите число dla poiska Q');
 readln(Q);
{Zapolnaem massiv}
for i:= 1 to n do
begin
  write('Vvedite ',i,' element massiva');
  readln(a[i]);
  end;

{Chitaem}
begin
 niz:=1;
 verh:=n;
repeat
 sred:=((niz+verh) div 2)+1;

 if a[sred] = q then found:=TRUE
    else if q < a[sred] then niz:=sred-1
         else verh:=sred+1;

until (verh < niz) or found=true;
 if found
 then
 writeln('совпадает с элементом под номером',sred)
 else writeln('такого элемента в массиве нет');
 readln;
end;
end.

p/s/ Огромное спасибо за помошь kommunist'у. Без него я б еще очень долго мучал компилятор бессмысленными экспериментами..)))

[ILDAR@GIZmo]

program pr1;
uses crt;

var
    i,j:integer;
begin
     clrscr;         {очистка экрана}
     randomize;
     assign(output,'d:\marix.dat');  {имя файла для записи значеий}
     rewrite(output);
     for i:=1 to 12 do
         begin
         for j:=1 to 8 do
             begin
             write(random(50));  
             write(' ');
             end;
         writeln('');
     end;
     readln;
     close(output);
end.