Найти минимального и максимального числа (n^2) - QBasic

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

13-й строк не работает

CLS
INPUT n 
s = n ^ 2
PRINT s
a$ = STR$(s)
c = LEN(a$)
min = 10
max = 0
DIM a(c)
FOR i = 1 TO c
    a(i) = VAL(MID$(a$, i, 1))
    IF max <= a(i) THEN max = a(i)
    IF min >= a(i) THEN min = a(i)
NEXT i
PRINT "min="; min
PRINT "max="; max

помогите пж...... спасибо за ранее!!!!!!!!

Решение задачи: «Найти минимального и максимального числа (n^2)»

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

CLS
INPUT n 
s = n ^ 2
PRINT s
a$ = Trim(STR$(s))
C = LEN(a$)
 
Min = 9
Max = 0
FOR i = 1 TO C
    r = VAL(MID$(a$, i, 1))
    IF Max < r THEN Max = r
    IF Min > r THEN Min = r
NEXT i
PRINT "min="; Min
PRINT "max="; Max

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

В этом коде выполняются следующие действия:

Вводится значение переменной n.
Вычисляется значение переменной s, равное n в квадрате.
Выводится значение переменной s.
Переменная a$ получает значение переменной s, приведенное к строковому типу.
Вычисляется длина строки a$.
Инициализируются значения переменных Min и Max.
В цикле перебираются все символы строки a$.
Для каждого символа вычисляется его числовое значение.
Если найденное число больше максимального значения Max, то Max присваивается это число.
Если найденное число меньше минимального значения Min, то Min присваивается это число.
После окончания цикла выводятся значения переменных Min и Max.