Дан текст содержащий слова, разделенные несколькими пробелами. Получить текст, содержащий слова, разделенные одним пробелом

INPUT"vvedite text ",a$
FOR i=1 TO LEN(a$)
IF MID$(a$,i,1)<>" "OR MID$(a$,i,1)=" "AND MID$(a$,i+1,1)<>" "THEN b$=b$+MID$(a$,i,1)
NEXT
PRINT b$

автор: кот Бегемот