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

CLS
max = -9999
DO
        INPUT n
        IF n = 0 THEN EXIT DO
        IF n < 0 THEN
                IF n > max THEN max = n
        END IF
LOOP
PRINT max