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

program Project1;
 
{$R *.res}
const n = 10;
var x:array[1..n] of integer;
    i,j,k:integer;
    f:boolean;
begin
    Randomize;
    for i:=1 to n do
     begin
      x[i] := random(10);
      Write(x[i], '  ')
     end;
    writeln;
    for i:=1 to n do
     begin
      f:=false;j:=1;
       while (not f)and(j<=i-1) do
        begin
         if x[j]=x[i] then f:=true;
         inc(j)
        end;
      if not f then inc(k)
     end;
    writeln('There are ', k, ' different vals.');
    ReadLn;
end.

uses fgl, types;
type t = specialize tfpgmap<integer, integer>;
var m : t;
// ...
    m := t.create;
    m.sorted := true;
    m.duplicates := dupignore;
    for i in x do m.add(i);
    writeln('Разных значений: ', m.count);