В текст из 3 слов нужно вставить ещё одно после первого

FOR y = 1 TO n
    FOR x = 1 TO n
        LOCATE y + 1, x * 4
        PRINT a(y, x);
    NEXT
    PRINT
NEXT

CLS
INPUT "vvedite text"; a$
INPUT "vvedite slovo"; b$
DO
    i = i + 1
    IF MID$(a$, i, 1) = " " THEN k = i
LOOP UNTIL k > 0 OR i = LEN(a$)
c$ = MID$(a$, 1, k) + b$ + " " + MID$(a$, k + 1, LEN(a$))
PRINT c$

CLS
INPUT "vvedite text"; a$
INPUT "vvedite slovo"; b$
FOR i = LEN(a$) TO 1 STEP -1
    IF MID$(a$, i, 1) = " " THEN k = i ' ищем первый пробел
NEXT
' если есть пробел вставляем слово после первого, если нет пробелов склеиваем слова
IF k > 0 THEN c$ = MID$(a$, 1, k) + b$ + MID$(a$, k, LEN(a$)) ELSE c$ = a$ + " " + b$
PRINT c$

CLS
n = 3
DIM a(n, n)
DATA 12,123,11
DATA 111,2133,1233
DATA 1233,2,23
FOR y = 1 TO n
    FOR x = 1 TO n
        READ a(y, x)
    NEXT
NEXT
FOR y = 1 TO n
    FOR x = 1 TO n
        LOCATE y * 1.5, x * 6
        PRINT a(y, x);
    NEXT
    PRINT
NEXT

FOR i% = 1 TO 9
PRINT USING "##"; i%;
NEXT