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

const max=10;
var a:array[1..max,1..max] of byte;//матрица чисел типа byte
    mp,mn:set of byte; //множества  чисел типа byte
    m,n,i,j,k:byte;//размеры матрицы и счетчики
begin
repeat
write('Введите количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('Введите количество столбцов от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Заполните матрицу по столбцам числами от 0 до 100');
for j:=1 to n do
 begin
  writeln('Столбец ',j);
  for i:=1 to m do
   repeat
    write('a[',i,',',j,']=');
    readln(a [i,j]);
   until a[i,j] in [0..100];
 end;
writeln('Матрица');
for i:=1 to m do//выведем по строкам
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
mp:=[]; //составим множество последнего столбца
for i:=1 to m do
mp:=mp+[a[i,n]];
k:=0;  //количество столбцов, похожих на последний
for j:=1 to n-1 do
 begin
  mn:=[]; //составляем множество столбца
  for i:=1 to m do
  mn:=mn+[a[i,j]];
  if mn=mp then k:=k+1; //если равно последнему, то похожий
 end;
write('Количество столбцов похожих на последний=',k);
end.