Qbasic. определить максимальное значение среди положительных элементов из n введенных.

DIM i AS INTEGER
DIM n AS INTEGER
DIM max AS INTEGER
INPUT "INPUT n", n
max = 0
FOR i = 1 TO n
INPUT "a ?", a
IF a > 0 THEN
IF a > max THEN
max = a
END IF
END IF
NEXT i
PRINT max
END