В новый массив собрать все слова с длиной символов 5 и более - QBasic

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

Создать два одномерных массива слов.В первый массив собрать все слов с длиной символов 5 и более.Во второй остальные за исключением пустых.В первом массиве первую и последнюю букву поднять в верхний регистр,средние оставить в нижнем.

Решение задачи: «В новый массив собрать все слова с длиной символов 5 и более»

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

CLS
RANDOMIZE TIMER
DIM A(1 TO 10) AS STRING
DIM B(1 TO 10) AS STRING
DIM C AS STRING
DIM c1 AS STRING
DIM c2 AS STRING
DIM c3 AS STRING
DIM k AS INTEGER
DIM n AS INTEGER
 
i = 1
j = 1
 
DO
   n = 1 + 9 * RND
   C = ""
 
   FOR o = 1 TO n
      k = 97 + 25 * RND
      C = C + CHR$(k)
   NEXT o
   IF LEN(C) >= 5 AND i <= 10 THEN
      A(i) = C
      i = i + 1
   ELSEIF LEN(C) < 5 AND j <= 10 THEN
      B(j) = C
      j = j + 1
   END IF
LOOP UNTIL i + j > 21
 
FOR i = 1 TO 10
    LOCATE i, 2
    PRINT A(i)
    LOCATE i, 15
    PRINT B(i)
NEXT i
 
FOR i = 1 TO 10
   c1 = LEFT$(A(i), 1)
   c2 = RIGHT$(A(i), 1)
   c3 = MID$(A(i), 2, LEN(A(i)) - 1)
   c1 = UCASE$(c1)
   c2 = UCASE$(c2)
   A(i) = c1 + c3 + c2
NEXT i
 
FOR i = 1 TO 10
    LOCATE i, 22
    PRINT A(i)
NEXT i
END

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

Создаются два массива A и B для хранения слов с длиной символов 5 и более и словами с длиной символов менее 5 соответственно.
В цикле генерируются случайные строки C длиной от 1 до 9 символов.
Если длина строки C равна 5 или более и индекс i меньше или равен 10, то строка C добавляется в массив A.
Если длина строки C меньше 5 и индекс j меньше или равен 10, то строка C добавляется в массив B.
После заполнения массивов A и B, они выводятся на экран.
В цикле проходится по каждому элементу массива A, и для каждого элемента формируется новое значение, состоящее из первого и последнего символа, приведенных к верхнему регистру, и всех остальных символов, приведенных к нижнему регистру.
Новые значения элементов массива A выводятся на экран.