количество повторяющихся элементов в массиве

[Андрей.12]

нужно чтобы программа выдавала например: пятерок 4 шестерок 1

var a:array[1..10] of integer;
b:array[1..10]of integer;
i,k,z:integer;
begin
for i:=1 to 6  do
read(a[i]);
for i:=1 to 6 do begin
for i:=1 to 6 do

if a[i]=b[k] then z:=z+1;
k:=k+1 end;

[val_nnm]

var a:array[1..10] of integer;
    count_before:integer;
    count_after:integer;
    i,j:integer;
begin
  for i:=1 to 6  do
    read(a[i]);
  for i:=1 to 6 do begin
    count_before := 0;
    for j:=1 to i-1 do
      if (a[i]=a[j]) then count_before := count_before+1;
    count_after := 0;
    for j:= i+1 to 6 do
      if (a[i]=a[j]) then count_after := count_after+1;
    if (count_before=0) then
      writeln('Число ',a[i],' встречается ',count_after+1,' раз');
  end;
end.