Cоставить программу, определяющую длину первого слова в предложении — QBasic(Бейсик)

INPUT "vvedite predlojenie ", a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = " " THEN EXIT FOR
    n = n + 1
NEXT
PRINT "dlina 1 slova="; n