pascal masyvas

Gal galit pagelbeti ir paaiskinti, kaip parasyti programa , kuri rastu skaicius, kurie pasikartoja masyve ir kiek kartu pasikartoja ?

Tarkim tavo masyvas apibreztas taip

const N = 100;
type masyvas = array[1..N] of integer

Tada manau susikurciau atsakymo spausdinimo procedura, o proceduroje naudociau funkcija, kuri randa kiek kartu skaicius kartojas masyve:

function kiekis(a:masyvas; b:integer):integer;
var i, k:integer;
   d:boolean;
begin 
d:= true;
k:=0;
if b<>1 then
  for i:=1 to b-1 do   //ieskau ar skaicius jau nebuvo isspausdintas
     if a[b] = a[i] then d := false;
if d then 
  begin
  for i:=b+1 to N do
     if a[b] = a[i] then k+=1;
  kiekis:=k;
  end
    else kiekis := -1;
end;


procedure KartojimaisiSpausdint(a:masyvas);
var i:integer;
begin
for i:=1 to N do
  if kiekis(a, i) > -1 then
      writeln("Skaicius: ", a[i], "kartojasi: ", kiekis(a, i));
end;

neturejau laiko sukompiliuot, bet pasianalizaves koda manau suprasi.