Поиск числа х в двумерном массиве

uses crt;
const N=3;
const M=3;
var
a,b:array[1..N,1..M] of integer;
i,j,x,k,z:integer;
begin
clrscr;
writeln('Massiv A raven');
For i:=1 to N do begin
                 for j:=1 to M do read(a[i,j]);
                 write;
                 end;
writeln('Massiv B raven');
For i:=1 to N do begin
                 for j:=1 to M do write(a[i,j],' ');
                 writeln;
                 end;
 
{Выполнение самой программы}

uses crt;
const nmax=10;
type mas=array[1..nmax] of integer;//массив
     mtr=array[1..nmax] of mas;//матрица=массив массивов
function Binar(a:mas;d,x:integer):integer; //процедура бинарнви поиском
                            //в отсортированном по неубыванию массиве
var l,s,r,k:integer;//лево, серелина, право и наличие
begin
l:=1;//левый край=1
r:=d; //правый край=длине массива
k:=0;//наличие элемента
while(l<=r)and(k=0) do
 begin
  s:=(l+r)div 2;//середина(примерно)
  if x>a[s] then r:=s-1
  else if x<a[s] then l:=s+1
  else k:=1;
 end;
Binar:=k;{0 или 1}
end;
 
var a:mtr;
    n,m,i,j,x,k:integer;
    f:boolean;
begin
repeat
write('Количество массивов от 2 до ',nmax,' n=');
read(n);
until n in [1..nmax];
repeat
write('Размер массивов от 2 до ',nmax,' m=');
read(m);
until m in [1..nmax];
writeln('Введите ',n,' неубывающих массивов, размером в ',m,' элементов, содкржащих одинаковое число:');
for i:=1 to n do
 begin
  read(a[i][1]);
  for j:=2 to m do
  repeat
   read(a[i][j]);
  until a[i][j]>=a[i][j-1];
 end;
clrscr; {вдруг криво ввели, выведем на чистый экран}
writeln('Полученные массивы:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i][j]:5);
  writeln;
 end;
f:=false;{будем искать первый, который есть во всех}
i:=1; {начнем с первого}
while(i<=m)and not f do
 begin
  x:=a[1][i];
  k:=1;
  for j:=2 to n do
  k:=k+Binar(a[j],m,x);
  if k=n then f:=true else i:=i+1;
 end;
write('Есть во всех массивах элемент=',x)
end.