Данно натуральное число. а) Определить его максимальную цифру. б) Определить его минимальную цифру. 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 K < min THEN min = K END IF IF K > max THEN max = K END IF NEXT i PRINT "max ="; max PRINT "min ="; min