Найти числа, которые встречаются во всех строках матрицы

type mas=array[1..10]of integer;//строка матрицы
     mtr=array[1..10]of mas;//матрица=массив строк
//ввод элемнтов строк матрицы
procedure vv_str(var s:mas;n,k:integer);
var i:integer;
begin
writeln('Строка ',k);
readln(s[1]);
for i:=2 to n do
repeat
  write('элемент ',i,'=');
  readln(s[i]);
until s[i]>s[i-1];
end;
//рекурсивная функция бинарного поиска в сортированном массиве
function bin(s:mas;first,last,x:integer):boolean;
var c:integer;
begin
if first>last then
 begin
  bin:=false;
  exit;
 end;
c:=(first + last) div 2;
if s[c]=x then bin:=true
else if s[c]>x then bin:=bin(s,first,c-1,x)
else bin:=bin(s,c+1,last,x);
end;
//процедура удаления элемента из массива
procedure del_elem(var s:mas;var n:integer;k:integer);
var i:integer;
begin
if k=n then dec(n)
else
 begin
  for i:=k to n-1 do
  s[i]:=s[i+1];
  dec(n);
 end;
end;
var a:mtr;//матрица
    b:mas;//массив элементов которые есть во всех строках
    m,n,i,j,k:integer;
begin
repeat
writeln('Введите размеры матрицы от 2 до 10 m,n:');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Введите элементы матрицы по возрастанию в строках');
for i:=1 to m do
vv_str(a[i],n,i);
writeln('Введенная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i][j]:4);
  writeln;
 end;
k:=0; //количество искомых чисел
//ищем числа первой строки которые есть во второй
for i:=1 to n do
if bin(a[2],1,n,a[1][i]) then
 begin
  inc(k);
  b[k]:=a[1][i];
 end;
if k=0 then//если нет дальше не ищем
 begin
  writeln('Чисел встречающихся во всех строках нет');
  exit;
 end;
i:=3;
while (i<=m)and(k>0) do
 begin
  for j:=1 to k do
  if not bin(a[i],1,n,b[j])then del_elem(b,k,j);//если нет числа в строке,
                              ///удаляем его из массива b
  if k>0 then inc(i)
 end;
if k=0 then//если нет дальше не ищем
 begin
  writeln('Чисел встречающихся во всех строках нет');
  exit;
 end;
writeln('Числа встречающиеся в каждой строке');
for i:=1 to k do
write(b[i],' ');
end.