Дан двухмерный массив M*N элементов. Посчитать сумму положительных чисел для каждой строки и количество положительных во всем двухмерном массиве — QBasic(Бейсик)

CLS
INPUT "vvedite kolichestvo strok"; ny
INPUT "vvedite kolichestvo stolbcov"; nx
DIM a(ny, nx), s(ny)
FOR y = 1 TO ny
    FOR x = 1 TO nx
        PRINT "vvedite element, stroka ="; y; "stolbec ="; x
        INPUT a(y, x)
    NEXT
NEXT
FOR y = 1 TO ny
    FOR x = 1 TO nx
        IF a(y, x) > 0 THEN s(y) = s(y) + a(y, x): k = k + 1
    NEXT
NEXT
CLS
PRINT "matrica"
FOR y = 1 TO ny
    FOR x = 1 TO nx
        PRINT a(y, x);
    NEXT
    PRINT
NEXT
FOR y = 1 TO ny
    PRINT "summa"; y; "stroki ="; s(y)
NEXT
PRINT "kolichestvo polozhitelnyh ="; k