В матрице поменять все нулевые элементы на 1, все отрицательные на 0

FOR i =1 TO 10
FOR j=1 TO 5
IF a(i,j)=0 THEN a(i,j)=1 ELSE IF a(i,j)<0 THEN a(i,j)=0 
NEXT j
NEXT i
FOR i =1 TO 10
FOR j=1 TO 5
? a (i,j);
NEXT j
?
NEXT i
?
FOR i =1 TO 10
FOR j=1 TO 5
IF a(i,j)>0 THEN s=s+a(i,j)
NEXT j
? s;
?
NEXT i

CLS
ny = 10: nx = 5
DIM a(ny, nx), s(nx)
FOR y = 1 TO ny: FOR x = 1 TO nx
        PRINT "vvedite a("; y; ","; x; ")"
        INPUT a(y, x)
        b(y, x) = a(y, x)
NEXT: NEXT
FOR y = 1 TO ny: FOR x = 1 TO nx
        IF a(y, x) = 0 THEN b(y, x) = 1
        IF a(y, x) < 0 THEN b(y, x) = 0
NEXT: NEXT
FOR x = 1 TO nx: FOR y = 1 TO ny
        s(x) = s(x) + b(y, x)
NEXT: NEXT
CLS
PRINT "matrica", "", "new matrica"
FOR y = 1 TO ny
    FOR x = 1 TO nx
        PRINT a(y, x);
    NEXT
    PRINT "",
    FOR x = 1 TO nx
        PRINT b(y, x);
    NEXT
    PRINT
NEXT
PRINT "", "", "summa"
FOR x = 1 TO nx
    PRINT "", "", "stolbec"; x; "summa"; s(x)
NEXT

FOR i =1 TO 10
FOR j=1 TO 5
IF a(i,j)=0 THEN a(i,j)=1 ELSE IF a(i,j)<0 THEN a(i,j)=0 
NEXT j
NEXT i
FOR i =1 TO 10
FOR j=1 TO 5
? a (i,j);
NEXT j
?
NEXT i
?
FOR i =1 TO 10
FOR j=1 TO 5
IF a(j,i)>0 THEN s=s+a(i,j)
NEXT j
? s;
?
NEXT i