Найти все числа, каждое из которых встречается во всех столбцах матрицы

const m=5;
      n=7;
var a:array[1..m,1..n] of integer; //матрица [5,7]
    b:array[1..m] of integer;  //массив не повторяющихся элементов 1 столбца
    i,j,k,p,q,x,f:integer;
begin
randomize;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(4);
    write(a[i,j]:2);
   end;
  writeln;
 end;
//выберем из первого столбца числа по 1 разу, чтобы не было повторов
k:=1;
b[k]:=a[1,1];
for i:=2 to  m do
 begin
  j:=1;
  f:=0;
  while(j<=k)and(f=0) do
  if a[i,1]=b[j] then f:=1
  else inc(j);
  if f=0 then
   begin
    inc(k);
    b[k]:=a[i,1];
   end;
 end;
f:=0;
for i:=1 to k do //смотрим каждый элемент первого столбца(уже без повторов)
 begin
  x:=b[i];
  k:=1;
  for j:=2 to n do //остальные столбцы
   begin
    p:=1;//первый элемент
    q:=0; //пока нет такого
    while(p<=m)and(q=0) do//идем по столбцу пока не нашли такой
    if a[p,j]=x then q:=1 //нашли, дальше не ищем
    else inc(p); //еще не нашли, дальше по столбцу
    if q=1 then inc(k);//если есть, +1
   end;
  if k=n then
   begin
    f:=1;
    writeln('Число ',x);
   end;
end;
if f=0 then write('Нет одинаковых чисел в столбцах');
end.