Подсчитать наибольшее количество пробелов, идущих подряд, в заданной символьной строке. — QBasic(Бейсик)

INPUT a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) <> " " THEN k = 0 ELSE k = k + 1: IF k > max THEN max = k:
NEXT
PRINT max