Одномерный массив

[xxxPascalxxx]

Здравствуйте. Что-то я не понимаю, как определить, сколько чисел входят в данный массив только по одному разу (более, чем по одному разу). В ступор зашёл. помогите, если не затруднит. Заранее спасибо.

Моя наработка:

var a:array [1..1000] of integer;

     b,i,j,n,c:integer;  q:real;
begin
j:=0;
write('Vvedite razmernost` massiva: ');
readln(n);
 for i:=1 to n do
  begin
   write('a[',i,']',' ');
   readln(b);
  a[i]:=b;
 end;
writeln('');

for i:=1 to n do
for j:=i to n do
if a[i]<>a[j] then
c:=c+1;

writeln(c:1:0);
  readln;
end.

[Reskov]

var a:array [1..1000] of integer;
    c:array [1..1000] of boolean;
b,i,j,n:integer;  q:real;
begin
j:=0;
write('Vvedite razmernost` massiva: ');
readln(n);
 for i:=1 to n do
  begin
   write('a[',i,']',' ');
   readln(a[i]);
   c[i]:=false;
 end;
writeln('');
for i:=1 to n do
for j:=1 to n do
if (a[i]=a[j]) and (i<>j) then c[i]:=true;
for i:=1 to n do
if (c[i]) then inc(b);
writeln(b:1);
readln;

Он работает, но можно на писать лучше

[xxxPascalxxx]

Спасибо, вот в чём была моя ошибка условие i<>j надо было добавить.
Ещё раз спасибо.

[xxxPascalxxx]

Извиняюсь, но програмка не много не так работает... Она считает количество всех повторяющихся элементов, а мне надо, чтобы, к примеру, если размерность массива 5, три раза повторяется 1 и 2 раза 3, то ответ был 2, т.е. количетво цифр, которые повторяются, а не количество их повторений...

Всё, уже всю голову сломал... Не понимаю, как это сделать... Помогите пожалуйста, очень прошу.