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

CLS
INPUT "Vvedite predlogenije:", Pre$
Razdelitel$ = " " '  Znak razdeleniya slov
FOR i% = 1 TO LEN(Pre$)
    IF MID$(Pre$, i%, 1) <> Razdelitel$ THEN Dlin% = Dlin% + 1 ELSE Dlin% = 0
    IF Dlin% > Max% THEN Max% = Dlin%
NEXT
PRINT "Dlina samogo dlinnogo slova:"; Max%