Линейная таблица, Подсчитать количество чисел Опции

[Ксюша]

Привет. Помогите решить задачу: Подсчитать количество различных чисел, встречающихся в ленейной таблице.

[Rothmans]

Код

const n=100;
var a:array[1..n] of integer;
     i,j,k:integer;
begin
 k:=0;
 for i:=1 to n do a[i]:=random(1000);
 for i:=1 to n do if a[i]=0 then k:=1;
 for i:=1 to n-1 do
   for j:=i+1 to n do
     if a[j]=a[i] then a[j]:=0;
 for i:=1 to n do if a[i]<>0 then Ink(k);
 writeln(k);
end.

Вот такой вариантик.
Только от массива останутся только уникальные числа.