Pascal ABC (ПОСЛЕДНЯЯ ЗАДАЧА И ЗАЧЕТ)

[suger]

8. Дана последовательность чисел а1, а2, …, аn. Выяснить, сколько чисел и какие входят в последовательность более чем по одному разу.
uses crt;
var i,j,k,y,n,c,v,b,m:integer;
a:array[1..10] of integer;
z:real;
begin
write('n=');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
c:=1;
writeln('');
for i:=1 to n-1 do begin
for j:=i+1 to n do
if a[i]=a[j] then begin
k:=a[i];
c:=c+1;
end;
if c>1 then writeln(k,' kolichestvo= ',c);
c:=1;
end;
readln;
end.
Задача работает на 75% выдает лишние ответы найдите ошибку пожалуйста...

[Блуд]

var i,j,k,y,n,c,v,b,m:integer;
a:array[1..10] of integer;
z:real;
begin
write('n=');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
c:=1;
writeln('');
for i:=1 to n-1 do begin
for j:=i+1 to n do
if a[i]=a[j] then begin
k:=a[i];
c:=c+1;
a[j]=-1;
end;
if (c>1)AND (a[i]<>-1) then writeln(k,' kolichestvo= ',c);
c:=1;
end;
readln;
end.

исправил, может быть не лучший вариант, но минимум изменений