В текст из 3 слов нужно вставить ещё одно после первого — QBasic(Бейсик)

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$