Задана последовательность матриц, определить, сколько матриц состоит из тех же элементов, что и первая матрица

type mtr=array[1..4,1..4] of byte; //тип матриц
     mas=record //тип массива матриц
         row,col:byte; //размеры
         mt:mtr; //матрица
         end;
var a:array[1..10] of mas;//массив матриц
    n,i,j,k,s:byte;
    m1,m:set of byte; //множества элементов 1 и остальных матриц
begin
randomize;
repeat
write('Введите количество матриц от 2 до 10 n=');
readln(n);
until n in [2..10];
for i:=1 to n do
 begin
  writeln('Матрица ',i);
  with a[i] do
   begin
    row:=2+random(3);
    col:=2+random(32);
    writeln('Заполните матрицу [',row,'*',col,'] числами от 1 до 30');
    for j:=1 to row do
    for k:=1 to col do
    repeat
    write('a',i,'[',j,',',k,']=');
    readln(mt[j,k]);
    until mt[j,k] in [1..30];
   end;
 end;
writeln('Последовательность матриц');
for i:=1 to n do
 begin
  writeln('Матрица ',i);
  with a[i] do
  for j:=1 to row do
   begin
    for k:=1 to col do
    write(mt[j,k]:3);
    writeln;
   end;
 end;
s:=0;  //количество совпадающих с первой  матриц
m1:=[]; //множество элементов 1 матрицы
for i:=1 to a[1].row do
for j:=1 to a[i].col do
m1:=m1+[a[1].mt[i,j]];
for i:=2 to n do  //проверяем остальные
with a[i] do
 begin
  m:=[];
  for j:=1 to a[i].row do
  for k:=1 to a[i].col do
  m:=m+[mt[j,k]];
  if m=m1 then inc(s);
 end;
writeln('Количество матриц из тех же элеиентов что и первая=',s)
end.