дан одномерный массив (от 1 до 1000). Найти количество различных цифр в нем — Pascal(Паскаль)

var
a:array[1..100]of integer;
t,i,j,n,kol:integer;
begin
writeln('vvedite razmer massiva');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(20);
writeln('massiv');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
for j:=2 to n do
if a[j]<a[j-1]then
begin
t:=a[j];
a[j]:=a[j-1];
a[j-1]:=t;
end;
for i:=1 to n do
if (a[i]<>a[i-1])then inc(kol);
writeln(kol);
readln;
end.