Per rendere pių flessibile il codice, potresti creare un'array dove l'indice dell'elemento corrisponde al numero da conteggiare, ossia
Quanti(1) conterrā il numero di uni, Quanti(2) il numero di dui, etc.
Cosė nel ciclo for puoi sommare

Quanti(vettore(i)) = Quanti(vettore(i)) + 1


Non ho provato, ma direi che funziona

Ciao