Заполнить литерный массив заглавными английскими буквами и подсчитать количество букв

CLS: RANDOMIZE TIMER: DIM A$(4,5)
FOR i=1 TO 4
 FOR j=1 TO 5
  color 8
  A$(i,j)=CHR$(FIX(65+RND*25))'генерируем элементы массива
  IF A$(i,j)>"Q" THEN k=k+1: color 4'элементы, стоящие дальше Q, будут выделены красным цветом
  PRINT A$(i,j);
 NEXT
 PRINT
NEXT
PRINT "Kol-vo:";k
END

CLS: RANDOMIZE TIMER: DIM A$(5,5): DIM B$(25)
FOR i=1 TO 5
 FOR j=1 TO 5
  A$(i,j)=CHR$(FIX(97+RND*25))'генерируем элементы массива
  t=t+1: B$(t)=A$(i,j)'для сортировки используем одномерный массив
  PRINT A$(i,j);
 NEXT
 PRINT
NEXT
FOR i=1 TO t
 FOR j=1 TO t
  IF B$(i)>B$(j) AND i>j THEN SWAP B$(i),B$(j)'сортируем элементы в порядке убывания
 NEXT
NEXT
t=0:color 2
FOR i=1 TO 5
 FOR j=1 TO 5
  t=t+1
  A$(i,j)=B$(t)'переносим элементы обратно в двумерный массив
  PRINT A$(i,j);
 NEXT
 PRINT
NEXT
END