Найти максимальное и минимальное из чисел через оператор do loop while - QBasic

DEFSTR S
DEFINT I, M-N
CLS
INPUT "Vvedite 4-zn chislo"; s4
max = 0
min = 9
i = 1
DO WHILE i < 5
   s = MID$(s4, i, 1)
   n = VAL(s)
   IF n < min THEN min = n
   IF n > max THEN max = n
   i = i + 1
LOOP
PRINT "max="; max
PRINT "min="; min
END