С клавиатуры вводится предложение. Программа находит наименьшее слово в нём- QBasic(Бейсик)

CLS
INPUT "Vvedite predlogenye: ", P$
  m = 32767
DO: k = INSTR(P$, " ")
  IF k > 1 THEN S$ = LEFT$(P$, k - 1): P$ = MID$(P$, k + 1) ELSE S$ = P$
  IF LEN(S$) < m THEN m = LEN(S$): T$ = S$
LOOP UNTIL k = 0
PRINT "Slovo: "; T$