Обработка символьной информации

[Anastasia Lisutina]

Задание:переставить слова в предложение. Попыталась написать программу,но она не работает

cls
st$="kkk uuu ttt"
DIM a(20)
i=1
j=1
a(j)1

DO WHILE a(j) <>0
print i
a(j)=INSTR(i,st$," ")

PRINT a(j)
j=j+1
i=a(j)+1

LOOP

PRINT a(2),a(1)
st2$= MID$(st$,1,a(1)-1)+MID$(st$,a(1),a(2)-1)+MID$(st$,a(2),LEN(st$)-a(2))
PRINT st2$