AlGur_1

DIM T$, I AS INTEGER, S AS INTEGER, SWS AS INTEGER, SWL AS INTEGER
INPUT "Input text: ", T$
SWL = 32767: I = 1
DO
    DO WHILE MID$(T$, I, 1) = " " AND I <= LEN(T$)
        I = I + 1
    LOOP
    S = I
    DO WHILE MID$(T$, I, 1) <> " " AND I <= LEN(T$)
        I = I + 1
    LOOP
    L = LEN(MID$(T$, S, I - S))
    IF SWL > L THEN
        SWL = L
        SWS = S
    END IF
LOOP WHILE I < LEN(T$)
PRINT "Most short word: "; MID$(T$, SWS, SWL); "; length ="; SWL