Задайте символьный массив. Замените в нем элементы начинающиеся с буквы А максимальным подлине словом! выведите на экран полученный массив- QBasic(Бейсик)

INPUT n
DIM a$(n)
FOR i = 1 TO n
    INPUT a$(i)
NEXT
max$ = a$(1)
FOR i = 1 TO n
    IF LEN(a$(i)) = LEN(max$) THEN max$ = a$(i)
NEXT
FOR i = 1 TO n
    IF MID$(a$(i), 1, 1) = "A" THEN a$(i) = max$
NEXT
FOR i = 1 TO n
    PRINT a$(i)
NEXT