Сколько значений элементов в массиве А встречается более одного раза?

uses crt;
 
var a: array [1..100] of integer;
    n,i,j,jj,k: integer;
    bool: boolean;
 
 
begin clrscr; randomize;
write('Skoliko elementov v massive? '); readln(n);
write('Ishodnyi massiv: ');
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i],' ');
 end;
writeln; writeln;
 
k:=0;
while n > 0 do
 begin
 j:=2;
 bool:=false;
 while j <= n do
  if a[j] = a[1] then
   begin
   bool:=true;
   for jj:=j to n-1 do a[jj]:=a[jj+1];
   dec(n);
   end
  else inc(j);
 if bool = true then inc(k);
 for jj:=1 to n-1 do a[jj]:=a[jj+1];
 dec(n);
 end;
 
writeln('V massive nahoditsia ',k,' elementa(-ov), kotorye vstrechaiutsia bolee odnogo raza');
readkey; end.

uses crt;
var arr:array[1..100]of integer;
    a,i,j,n,nn,nnn:integer;
begin
  clrscr;
  write('Количество ЦЕЛЫХ элементов массива(1-100):');
  readln(n);
  for i:=1 to n do 
  begin
    write('Элемент',i,':');
    readln(arr[i]);
  end;
    
  while n>0 do
  begin
    i:=1;
    a:=arr[1];
    nn:=0;
    while i<=n do
    begin
      if a=arr[i] then
      begin 
        nn:=nn+1;
        for j:=i to n-1 do arr[j]:=arr[j+1];
        n:=n-1;
        i:=i-1;
      end;
      i:=i+1;
    end;
    if nn>1 then
    begin
      writeln(a,' встречается ',nn,' раза');
      nnn:=nnn+1;
    end;
  end;
  writeln(nnn,' значений встречаются несколько раз');
  readkey;
end.