QuickBasic - Qbasic ayuda urgente porvafor!

hola tengo un problema tengo que hacer un programa al cual le insecte yo 10 numeros y me diga cual es el grade y cual es el mejor.
Ejemplo:
dime un numero: 1
dime un numero: 2
dimer un numero: 3
dime un numero: 5
dime un numero: 45
dime un numero: 35
dime un numero: 78
asin hasta 10...
y luego decir cual es el mas pequeño y el mas grande
mas pequeño:1
ams grande: 78
y lo he intendo hacer pero me sale lo siguiente :
CLS
COLOR 3,9
LOCATE 1,1
FOR A=1 to 10
INPUT "DIME UN VALOR:", NUM
IF NUM > UMAX THEN
UMAX=NUM
END IF
IF NUM < UMIN THEN
UMIN=NUM
END IF
NEXT A
PRINT "EL NUMERO MAYOR ES:"; UMAX
PRINT "EL NUMERO MENOR ES:"; UMIN
me podeis hechar una mano? gracias de antemano, saludos!

Preguntate:
¿ Cual es el valor inicial de UMAX?
¿ Cual es el valor inicial de UMIN?
En la respuesta tendras la solución

Hace tiempo no programo en basic, pero se hace muy facil con vectores( o array unidimencionales) mas o menos asi

CLS
dim a(10
COLOR 3,9
LOCATE 1,1
FOR i=1 to 10
INPUT "DIME UN VALOR:", NUM
a(i)=num
NEXT i
SORT A
PRINT "EL NUMERO MAYOR ES:"; A(10)
PRINT "EL NUMERO MENOR ES:"; A(1)


SUERTE

ESTA BIEN

me consegui un libro para aprender qbasic y ningun programa parece funcionar .
en este por ejemplo me responde :?
10 INPUT L,W
20 LET A=L*W
30 PRINT L,W,A
40 END

el libro se llama schaum outline of programming with basic de byron gottfred .1985
me podria ayudar .soy principiante . muchas gracias