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

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