Вводится с клавиатуры 10 произвольных чисел. Найти и вывести на печать максимальное значение- QBasic(Бейсик)

CLS: DIM max
FOR ch = 1 TO 10
    PRINT "Vvedite chislo"; ch; ": ";
    INPUT "", c
    IF ch = 1 THEN max = c
    IF c > max THEN max = c
NEXT
PRINT "max:"; max