Напишите программу которая заполняет с клавиатуры массив А(3,3) словами разного размера и заменяет в нем максимальное по длине слово на слово «MAX»- Basic(Бейсик)

DIM a$(3, 3)
FOR i = 1 TO 3
FOR j = 1 TO 3
INPUT "vvedite slovo ", a$(i, j)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO 3
FOR j = 1 TO 3
PRINT a$(i, j); " ";
NEXT
PRINT
NEXT
max$ = a$(1, 1)
FOR j = 1 TO 3
FOR i = 1 TO 3
IF LEN(a$(i, j)) > LEN(max$) THEN max$ = a$(i, j): maxd = LEN(max$)
NEXT
NEXT
FOR j = 1 TO 3
FOR i = 1 TO 3
IF LEN(a$(i, j)) = maxd THEN a$(i, j) = "max"
NEXT
NEXT
PRINT "novyj massiv"
FOR i = 1 TO 3
FOR j = 1 TO 3
PRINT a$(i, j); " ";
NEXT
PRINT
NEXT