В массиве A(10) заменить отрицательные элементы нулями — Basic(Бейсик)

CLS
n = 10
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 101) - 50
NEXT i
'Vivod na ekran iskhodnogo massiva
PRINT "IShodniy Massiv"
FOR i = 1 TO n
    PRINT a(i);
NEXT i
PRINT
'Proveryaem kazhdii element massiva i yesli element < 0 priravnivaem yego k 0
FOR i = 1 TO n
    IF a(i) < 0 THEN a(i) = 0
NEXT i
'vivod massiva posle preobrazovanii
PRINT "Massiv posle preobrazovany"
FOR i = 1 TO n
    PRINT a(i);
NEXT i
END