Найти максимальный из элементов, расположенных выше n строки, а также сумму элементов четных строк — QBasic(Бейсик)

REM
CLS
PRINT "Vvedite kolvo strok"
INPUT s
PRINT "Vvedite kolvo stolbcov"
INPUT t
DIM tabl(1 TO s, 1 TO t) AS INTEGER
FOR i = 1 TO s
    FOR j = 1 TO t
        tabl(i, j) = 1 + INT(RND * 100)
        PRINT tabl(i, j)
    NEXT j
    PRINT
NEXT i
max = tabl(1, 1)
PRINT "Vvedite nomer stroki"
INPUT n
FOR i = 1 TO n - 1
    FOR j = 1 TO t
        IF max < tabl(i, j) THEN max = tabl(i, j)
    NEXT j
NEXT i
PRINT "Maksimalniy element vishe"; n; "stroki ="; max
FOR i = 1 TO s
    FOR j = 1 TO t
        IF i MOD 2 = 0 THEN sum = sum + tabl(i, j)
    NEXT j
NEXT i
PRINT "Summa elementov chetnih strok ="; sum
END