Дана матрица 5-го порядка,если макс. элемент 3-го столбца >11 , то все элементы 4-го столбца сделать равными этому значению в противном случае все элементы 5-ой строки обнулить — QBasic(Бейсик)

CLS
DIM a(5, 5)
RANDOMIZE TIMER
FOR i = 1 TO 5
    FOR j = 1 TO 5
        a(i, j) = INT(RND * 16)
    NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO 5
    FOR j = 1 TO 5
        PRINT a(i, j); " ";
    NEXT
    PRINT
NEXT
max = a(1, 3)
FOR i = 2 TO 5
    IF a(i, 3) > max THEN max = a(i, 3)
NEXT
IF max > 11 THEN FOR i = 1 TO 5: a(i, 4) = max: NEXT: ELSE FOR i = 1 TO 5: a(5, i) = 0: NEXT
PRINT "novaya matrica"
FOR i = 1 TO 5
    FOR j = 1 TO 5
        PRINT a(i, j); " ";
    NEXT
NEXT