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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    m,n,i,j,k:byte;
    m1,mi:set of byte;
begin
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите элементы матрицы, числа от 0 до 100');
for i:=1 to m do
for j:=1 to n do
repeat
 write('a[',i,',',j,']=');
 read(a[i,j]);
until a[i,j] in [0..100];
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
m1:=[];
for j:=1 to n do
m1:=m1+[a[1,j]];
k:=0;
for i:=2 to n do
 begin
  mi:=[];
  for j:=1 to n do
  mi:=mi+[a[i,j]];
  if mi=m1 then k:=k+1;
 end;
writeln('Количество строк, похожих на первую=',k);
end.