Qbasic. Разновидности чисел.

[fakefish]

Класс написал контрольную работу. Сделать программу для определе-ния, каких оценок больше всего. Учесть возможность неоднозначности. Нужно решить задачу в общем виде.
Пример:
Задаются несколько чисел:5,5,5,2,2,3,3,3
Выдается 5 и 3.
Мои наработки ниже. Помогите пожалуйста

 LET b(1) = 1
 LET l = 1
 FOR j = 1 TO n - 1 STEP 1
  FOR i = 1 TO n - 1 STEP 1
   IF a(i) > a(i + 1) THEN
    SWAP a(i), a(i + 1)
   END IF
  NEXT i
 NEXT j
 FOR i = 1 TO n - 1 STEP 1
  IF a(i) = a(i + 1) THEN
   LET b(l) = b(l) + 1
  ELSE
   LET l = i
   LET b(i) = 1
  END IF
 NEXT i
 FOR i = 1 TO n STEP 1
  PRINT b(i);
 NEXT i
 RETURN