Данно натуральное число. а) Определить его максимальную цифру. б) Определить его минимальную цифру. QBasic 4.0

CLS
INPUT"A="; S$
L =LEN(S$)
max =VAL(RIGHT$(S$, 1))
min =VAL(RIGHT$(S$, 1))
FOR i =1 TO L
K =VAL(MID$(S$, i, 1))
IF Kmin = K
END IF
IF K> max THEN
max = K
END IF
NEXT i
PRINT"max ="; max
PRINT "min ="; min