Упорядочить строки матрицы по возрастанию сумм их элементов

DIM m, n, i, j, min AS INTEGER
CLS
 
INPUT "Enter number of rows"; m
INPUT "Enter number of columns"; n
DIM A(1 TO m, 1 TO n)  AS INTEGER
DIM sums(1 TO m), ord(1 TO m)  AS INTEGER
 
PRINT ""
PRINT "Source matrix: "
FOR i = 1 TO m
        FOR j = 1 TO n
            A(i, j) = INT(RND * 100)
            sums(i) = sums(i) + A(i, j)
            PRINT USING "####"; A(i, j);
        NEXT
        ord(i) = i
        PRINT ""
NEXT
 
PRINT ""
PRINT "Sorted matrix: "
 
FOR i = 1 TO m
       min = 100 * n
       FOR j = i TO m
                IF sums(j) < min THEN
                        min = sums(j)
                        jmin = j
                END IF
       NEXT
       tmp = sums(i)
       sums(i) = sums(jmin)
       sums(jmin) = tmp
      
       FOR j = 1 TO n
                tmp = A(i, j)
                A(i, j) = A(jmin, j)
                A(jmin, j) = tmp
                PRINT USING "####"; A(i, j);
       NEXT
       PRINT ""
NEXT
 
 
 
END

CLS
INPUT "enter n: ", n
INPUT "enter m: ", m
DIM x(n, m)
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT "enter x("; i; ","; j; ")";
        INPUT ": ", x(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT x(i, j);
    NEXT
    PRINT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO m
        x(i, 0) = x(i, 0) + x(i, j)
    NEXT
NEXT
FOR i = 1 TO n
    min = x(i, 0)
    q = i
    FOR u = i + 1 TO n
        IF x(u, 0) < min THEN min = x(u, 0): q = u
    NEXT
    IF q <> i THEN
        FOR j = 1 TO m
            SWAP x(i, j), x(q, j)
        NEXT
    END IF
NEXT
PRINT "new matrix: "
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT x(i, j);
    NEXT
    PRINT
NEXT
END