Задайте символьный массив из 12 элементов, содержащих фамилии учащихся. Найдите самую длинную и короткую фамилию. Выведите на экран массив и найденные элементы.- Basic(Бейсик)

DIM a$(12)
FOR i=1 TO 12
INPUT "vvedite familiyu ",a$(i)
NEXT
min$=a$(1)
max$=a$(1)
PRINT "ishodnyj massiv"
FOR i=1 TO 12
PRINT a$(i)
NEXT
 
FOR i=1 TO 12
IF LEN(a$(i))>len(max$) THEN max$=a$(i)
IF LEN(a$(i))<len(min$) THEN min$=a$(i)
NEXT
PRINT"samaya dlinnaya=";max$
PRINT"samaya korotkaya="min$