Найти количество строк/столбцов матрицы, похожих на первую/последнюю строку или столбец

uses crt;
type mas=array[1..50] of integer;{тип массив-строка}
     matr=array[1..50]of mas;{тип матрица-массив строк}
function Pohoz(m1,m2:mas;y:byte):boolean;{функция определения похожести массивов}
var i,j,k1,k2:byte;
begin
k1:=0;
for i:=1 to y do
for j:=1 to y do
if m1[i]=m2[j] then{если элемент первого есть во втором, считаем}
  begin
   k1:=k1+1;
   break;
  end;
k2:=0;
for i:=1 to y do
for j:=1 to y do
if m2[i]=m1[j] then{если элемент втрого есть в первом, считаем}
  begin
   k2:=k2+1;
   break;
  end;
if (k1=y)and(k2=y)then Pohoz:=true {если все есть в обоих массивах, похожие}
else Pohoz:=false;
end;
var a,at:matr;
    m,n,i,j,k1,km:byte;
begin
clrscr;
writeln('Razmery matrycy:');
write('Stroki m=');readln(m);
write('Stolbcy n=');readln(n);
writeln('Vvedite ',m*n,' elementov matricy:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Matrica:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
k1:=0;
for i:=2 to m do {от второй до последней строки проверяем}
if Pohoz(a[1],a[i],n)then{если похожи на первую, считаем}
k1:=k1+1;
writeln('Pohozih na 1 stroku=',k1);
km:=0;
for i:=1 to m-1 do{тоже от первой до предпоследней сравниваем с последней}
if Pohoz(a[m],a[i],n)then
km:=km+1;
writeln('Pohozih na poslednyuyu stroku=',km);
for i:=1 to n do {транспонируем матрицу, чтоб столбцы стали строками}
for j:=1 to m do
at[i,j]:=a[j,i];
k1:=0;
for i:=2 to m do {все повторяем}
if Pohoz(a[1],a[i],n)then
k1:=k1+1;
writeln('Pohozih na 1 stolbec=',k1);
km:=0;
for i:=1 to m-1 do
if Pohoz(a[m],a[i],n)then
km:=km+1;
writeln('Pohozih na poslednij stolbec=',km);
readln
end.