Как подсчитать количество одинаковых элементов в массиве?

procedure spisok2(kilp1:integer);
begin clrscr;
        window(1,1,80,25);
writeln(':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
writeln(':Ïð³çâèùå ïë.:²ì"ÿ ïë.:Íîìåð ðàõ.:²ì"ÿ îä.:Ïð³çâèùå îä.:Íîðåð ðàõ.:Ïåðåêàç_ãðí:');
writeln(':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
 
          m:=4;
         begin
          g:=0;
          for i:=kilp1-1 downto 1  do
          for j:=1 to i do
 
    begin
writeln(':        :            :          :        :            :          :           :');
 
          gotoXY(11,m);
          write(a[i].prizv_pl);
           gotoXY(2,m);
          write(a[i].ima_pl);
          gotoXY(26,m);
          write(a[i].namber_pl);
          gotoXY(44,m) ;
          write(a[i].prizv_ot);
          gotoXY(35,m);
          write(a[i].ima_ot);
          gotoXY(58,m);
          write(a[i].Namber_ot);
          gotoXY(68,m);
          write(a[i].suma);
          gotoXY(79,m);
          writeln; m:=m+1;
            end;
            end;
writeln(':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
 
end;
readln;
end.