Найти, в какой из данных матриц больше разных элементов - Pascal ABC

type mtr=array[0..9,0..9] of integer; //от 0 удобнее определять индексы в матрице
var n:integer;
//создание матриц
procedure matrix(var a:mtr;c:char);
var i,j:integer;
begin
writeln('Матрица ',c);
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
//определение числа разных
function razn(a:mtr):integer;
var flag:array[0..99] of boolean;
    i,j,k:integer;
begin
//инициируем массив, все true
for i:=0 to n*n-1 do
flag[i]:=true;
for i:=1 to n*n-1 do //проверяем все элементы начиная со 2 на уникальность
 begin
  j:=0;
  while (j<i)and(a[j div n,j mod n]<>a[i div n,i mod n]) do inc(j);
  if j<i then flag[i]:=false;
 end;
k:=0;  //считаем количество
for i:=0 to n*n-1 do
if flag[i] then inc(k);
razn:=k;
end;
var a,b:mtr;
    ka,kb:integer;
begin
write('Введите размер матриц от 2 до 10 n=');
readln(n);
randomize;
matrix(a,'A');
ka:=razn(a);
writeln('Количество разных элементов=',ka);
matrix(b,'B');
kb:=razn(b);
writeln('Количество разных элементов=',kb);
if ka>kb then write('Количество разных больше в матрице А')
else if ka<kb then write('Количество разных больше в матрице B')
else write('Количество разных в обеих матрицах одинаковое')
end.