Определить, совпадают ли множества элементов 2х массивов

const m = 10;
var a, b: array [1..m, 1..m] of byte;
    i, j, n: byte;
    sa, sb: set of byte;
Begin
  sa := [];
  sb := [];
  repeat
    write('Введите размерность массивов (1..', m, ')');
    readln(n);
    if not (n in [1..m]) then writeln('Число не в интервале 1..', m, ', повторите ввод.')
  until n in [1..10];
  writeln('Элементы массивов в интервале 0..255.');
  writeln('Введите массив A:');
  for i := 1 to n do
    for j := 1 to n do
      begin
        write('A[', i, ', ', j, '] = ');
        readln(a[i, j]);
        include(sa, a[i, j])
      end;
  writeln('Введите массив B:');
  for i := 1 to n do
    for j := 1 to n do
      begin
        write('B[', i, ', ', j, '] = ');
        readln(b[i, j]);
        include(sb, b[i, j])
      end;
  write('Множества элементов массивов A и B ');
  if sa <> sb then write('не ');
  write('совпадают.');
  readln
end.