Найти и вывести количество различных чисел в массиве - Pascal

uses crt;
const m = 10;
var i,j,k: integer;
    a: array [1..m] of integer;
begin
 clrscr;
 randomize;
 for i:=1 to m do
  begin
   a[i]:=random(10);
   write(a[i]:3);
  end;
  for i:=1 to m do
   begin
   for j:=1 to m do
     if i=j then
      continue
     else
      if (a[i]=a[j]) then
       begin
        if j=m then
         dec(k);
        break;
       end;
     if j=m then
      inc(k);
    end;
  writeln;
  writeln('Количество различных элементов: ',k);
 readln;
end.