Дана произвольная фраза.Требуется переписать ее в обратном порядке и выделить отдельные слова в новой фразе.Слова в исходной фразе отделяются символом пробел- QBasic(Бейсик)

DIM c$(100)
INPUT "vvedite frazu ", a$
FOR i = 1 TO LEN(a$)
    b$ = MID$(a$, i, 1) + b$
NEXT
PRINT "fraza naoborot"
PRINT b$
b$ = " " + b$
FOR i = 1 TO LEN(b$)
    IF MID$(b$, i, 1) = " " THEN k = k + 1: ELSE c$(k) = c$(k) + MID$(b$, i, 1)
NEXT
PRINT "slova"
FOR i = 1 TO LEN(b$)
    PRINT c$(i)
NEXT