Бинарный поиск - найти ошибку в коде

program BinSearch;
uses crt;
const m= 4; n = 4;
  type Arr=array[1 .. m, 1 .. n] of integer;
 var k,b,e, x, i,j: integer;
 A:Arr;
{äâîè÷íûé ïîèñê}
 function BinarySearch(A: Arr; key: integer): integer;
 begin
  b:= 1;  { èíäåêñ ïåðâîãî ýëåìåíòà ìàññèâà }
e:= n*m;  {e - èíäåêñ ïîñëåäíåãî ýëåìåíòà, ãäå nm = n*m, òî åñòü ðàçìåðíîñòü äâóìåðíîãî ìàññèâà  }
  while b <= e do begin
    { èùåì ýëåìåíò íà èíòåðâàëå èíäåêñîâ îò b äî n, âêëþ÷èòåëüíî }
    k := b + (e - b) div 2;  { Âîò k êàê ðàç îäíîìåðíî... À äàëüøå: }
    if x > A[(pred(k) div n) + 1, (pred(k) mod n) + 1] then { <--- Ïðåîáðàçóåì k â íîìåð ñòðîêè è ñòîëáöà }
      b := k + 1
    else if x < A[(pred(k) div n) + 1, (pred(k) mod n) + 1] then { <--- çäåñü - òîæå ñàìîå }
      e := k - 1
    else begin BinarySearch:=k;
exit;
end;
end;
BinarySearch:=-1;
end;
{îñíîâíîé áëîê ïðîãðàììû}
begin
randomize;
writeln('Èñõîäíûé ìàññèâ: ');
for i:=1 to m do
for j:=1 TO n DO
begin
A[i,j]:=random(10);
writeln ( 'A(', i, ',', j, ')=', a[i,j]);
    end;
writeln;
write('Èñêîìûé ýëåìåíò > ');
read(x);
if (BinarySearch(A, k)=-1) then write('Ýëåìåíò íå íàéäåí')
else write('Íîìåð ýëåìåíòà: ', BinarySearch(A, x));
end.

program BinSearch;
 
const
  m = 4;
  n = 4;
type
  Arr = array[1 .. m, 1 .. n] of integer;
var
  k, b, e, x, i, j: integer;
  A: Arr;
 
  {двоичный поиск}
  function BinarySearch(A: Arr; key: integer): integer;
  begin
    b := 1; { индекс первого элемента массива }
    e := n * m; {e - индекс последнего элемента, где nm = n*m, то есть размерность двумерного массива }
    while b <= e do
    begin
      { ищем элемент на интервале индексов от b до n, включительно }
      k := b + (e - b) div 2; { Вот k как раз одномерно... А дальше: }
      if x > A[(pred(k) div n) + 1, (pred(k) mod n) + 1] then
        { <--- Преобразуем k в номер строки и столбца }
        b := k + 1
      else if x < A[(pred(k) div n) + 1, (pred(k) mod n) + 1] then { <--- здесь - тоже самое }
        e := k - 1
      else
      begin
        BinarySearch := k;
        exit;
      end;
    end;
    BinarySearch := -1;
  end;
 
  {основной блок программы}
begin
  randomize;
  writeln('Исходный массив: ');
  for i := 1 to m do
    for j := 1 to n do
    begin
      A[i, j] := random(10);
      writeln('A(', i, ',', j, ')=', a[i, j]);
    end;
  writeln;
  Write('Искомый элемент > ');
  Read(x);
  if (BinarySearch(A, k) = -1) then
    Write('Элемент не найден')
  else
    Write('Номер элемента: ', BinarySearch(A, x));
end.