Подсчитать количество различных чисел в целочисленной матрице

uses crt;
type
  diapazon = 1 .. 10; 
  matritca = array of array of integer;
var
  a : matritca;
  n, i, j, k, check, temp1, temp2:integer;
  summa :integer;
begin
   {Считываем размер матрицы}
   writeln('Введите размерность матрицы: ');
   readln(n);
   SetLength(a,n);
   for i:=0 to n-1 do 
   begin;
      SetLength(a[i],n);
   end;
   writeln('Как вы хотите заполнить матрицу?');
   writeln('Нажмите [1] - если хоите заполнить руками');
   writeln('Нажмите [2] - если хоите заполнить случайными числами');
   readln(check);
   if (check = 1) then
   begin;
      {Считываем матрицу}
      for i:=0 to n-1 do
      begin
         for j:=0 to n-1 do
            begin
               writeln('Введите a[',i,',',j,']');
               readln(a[i,j]);
            end;
      end;
      ClrScr;
   end
   {ЗАполняем матрицу рандомом}
   else if(check = 2) then
   begin;
      for i:=0 to n-1 do
      begin
         for j:=0 to n-1 do
            begin
               a[i,j] := random(10);
            end;
      end;
   end
     else 
   begin;
      writeln('Вы нажали не верную кнопку');
      exit;
   end;
   {Выводим матрицу}
   writeln();
   for i:=0 to n-1 do
   begin;
      for j:=0 to n-1 do
      begin    
         write(a[i,j], ' ');
      end;
      writeln;
   end;
   end.

uses crt;
var a:array[,] of integer; 
    m:set of integer;
    n,i,j,check,q:integer;
begin
randomize;
{Считываем размер матрицы}
writeln('Введите размерность матрицы: ');
readln(n);
SetLength(a,n,n);
writeln('Как вы хотите заполнить матрицу?');
writeln('Нажмите [1] - если хоите заполнить руками');
writeln('Нажмите [2] - если хоите заполнить случайными числами');
readln(check);
if check = 1 then
 begin
  {Считываем матрицу}
   for i:=0 to n-1 do
   for j:=0 to n-1 do
    begin
     write('a[',i,',',j,']=');
     readln(a[i,j]);
    end;
   ClrScr;
  end
 {ЗАполняем матрицу рандомом}
 else if check = 2 then
  begin
   for i:=0 to n-1 do
   for j:=0 to n-1 do
   a[i,j] := random(10);
  end 
else 
 begin
  writeln('Вы нажали не верную кнопку');
  exit;
 end;
{Выводим матрицу}
for i:=0 to n-1 do
 begin
  for j:=0 to n-1 do
  write(a[i,j], ' ');
  writeln;
  end;
m:=[]; //пустое множество
q:=0;//нет разных
for i:=0 to n-1 do
for j:=0 to n-1 do
if not(a[i,j] in m)then//если нет в множестве
 begin
  inc(q);//считаем
  m:=m+[a[i,j]];//добавляем в множество
 end; 
writeln('Количество разных чисел=',q) 
end.