Определить количество различных элементов матрицы(т.е. повторяющиеся элементы считать один раз) — Pascal(Паскаль)

Program lab4_16;
uses crt;
var  i,j,n,m,k,x:integer;
     fl:boolean;
     a:array [1..20,1..20]of integer;
     b:array [1..400]of integer;
begin
writeln('Размер матрицы m,n:');
readln(m,n);
writeln('Массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
x:=1;
b[x]:=a[1,1];
for i:=1 to m do
for j:=1 to n do
  begin
   fl:=true;
   for k:=1 to x do
   if a[i,j]=b[k] then fl:=false;
   if fl then
    begin
     x:=x+1;
     b[x]:=a[i,j];
    end;
  end;
writeln('Всего разных элементов=',x);
for i:=1 to x do
write(b[i],' ');
end.