Certo, esiste una via più semplice. E' la strada seguita da uno dei più famosi algoritmi di ordinamento non basati sul confronto: il counting sort.

Ti crei un array di 90 elementi ed ogni volta che introduci un numero X vai ad aumentare di uno il numero inserito nella posizione X-esima dell'array:
codice:
DIM array(1 to 90)
FOR i=1 TO 160
   ' Introduzione del numero (estratto a caso o inserito da tastiera?)
   ' Io suppongo introdotto da tatiera
   INPUT "Introduci il numero: ", Numero
   array(Numero) = array(Numero) + 1
NEXT

' Espongo i risultati
FOR i=1 TO 90
   PRINT "Occorrenze del numero "; i; ": "; array(i)
NEXT
Ciao.