Определить сколько различных чисел содержит целочисленный массив Х(н) — Pascal(Паскаль)

type tmasi=array[1..100] of integer;
var i,j,kol,n,kl:byte; a:tmasi; pr:boolean;(*процедура ввода*)
(*процедура вывода*)
procedure pr_out(n:byte; mas:tmasi);
var i:byte;
begin
  writeln('массив');
  for i:=1 to n do
  write(mas[i]:6);
  writeln;
end;
begin
  writeln('размерность массива');
   readln(n);
   (*контроль значения переменной*)
   while n>100 do
   begin
     writeln('неверно ввёл попробуй ещё раз');
     readln(n);
   end;
   repeat
     writeln('1-ввод случайным образом; 2-ввод с клавиатуры');
     readln(kl);
   until kl in[1,2];
    if kl=1 then randomize;
     for i:=1 to n do
     case  kl of
     1:a[i]:=random(1000);
     2:begin
         writeln('введи ',i,' элемент массива');
         readln(a[i]);
       end;
     end;
  pr_out(n,a);
  kol:=0;
  for i:=1 to n do
  begin
    pr:=false;
    for j:=1 to i-1 do
    if a[j]=a[i] then begin pr:=true;break;end;
    if pr then continue;
    inc(kol);
  end;
  writeln('Количество различных чисел в массиве- ',kol);
end.