В заданном предложении исключить все слова короче 4-х букв . Напечатать полученное предложение и число исключенных слов — QBasic(Бейсик)

INPUT "Введите предложение: ", text$
words$() = SPLIT(text$, " ")
newText$ = ""
excludedCount = 0

FOR i = LBOUND(words$) TO UBOUND(words$)
    IF LEN(words$(i)) >= 4 THEN
        newText$ = newText$ + words$(i) + " "
    ELSE
        excludedCount = excludedCount + 1
    END IF
NEXT i

PRINT "Полученное предложение: "; newText$
PRINT "Количество исключенных слов: "; excludedCount