Построить таблицу частот появления в тексте каждой буквы - QBasic

Формулировка задачи:

Считая, что текст содержит буквы только латинского алфавита, построить таблицу, в которой для каждой буквы указано, сколько раз она появилась в тексте(иными словами, построить таблицу частот появления в тексте каждлй буквы). Ребят, помогите пожалуйста, вообще не понимаю, как это делать

Решение задачи: «Построить таблицу частот появления в тексте каждой буквы»

Листинг программы

CLS
DIM B(1 TO 122)
INPUT A$
A$ = LTRIM$(A$)
L = LEN(A$)
FOR i = 1 TO L
M$ = MID$(A$, i, 1)
FOR J = 65 TO 122
IF J = 91 THEN J = 97
IF ASC(M$) = J THEN B(J) = B(J) + 1
NEXT J
NEXT i
FOR i = 65 TO 122
IF i = 91 THEN i = 97
x = 15
IF i > 90 THEN x = 14
COLOR x
PRINT CHR$(i); "="; (B(i)),
NEXT i

Объяснение кода листинга программы

В этом коде на языке QBasic:

Объявляется массив B(1 TO 122) для хранения количества появлений каждой буквы в тексте.
Вводится строка A$ с клавиатуры.
Строка A$ очищается от лишних пробелов с помощью функции LTRIM$.
Определяется длина строки A$ с помощью функции LEN().
В цикле FOR от 1 до L происходит обработка каждого символа строки A$.
Для каждого символа в цикле FOR выполняется функция MID$(A$, i, 1), которая возвращает один символ с позиции i в строке A$.
В цикле FOR от 65 до 122 (это все буквы от A до Z) проверяется, является ли текущий символ буквой.
Если символ является буквой, то проверяется его ASCII-код.
Если ASCII-код символа равен 91, то он преобразуется в 97 (это ASCII-код буквы a).
Если ASCII-код символа равен ASCII-коду буквы, то к значению массива B(J) прибавляется единица.
После окончания циклов выводится таблица частот появления букв от A до Z.
Цвет текста меняется на 15 (белый) и выводится значение массива B(i) для каждой буквы от A до Z. Этот код выводит таблицу частот появления букв в введенной строке.