AlMah_1

DIM N AS INTEGER, I AS INTEGER, J AS INTEGER, M AS INTEGER, MI AS INTEGER
DO
    INPUT "Input N: ", N
LOOP WHILE N < 2 OR N > 10
DIM E(1 TO N, 1 TO N) AS INTEGER
FOR J = 1 TO N
    FOR I = 1 TO N
        PRINT "E("; I; ","; J; ") = ";
        INPUT "", E(I, J)
    NEXT I
    PRINT
NEXT J
PRINT "Source matrix:"
FOR J = 1 TO N
    M = 0
    FOR I = 1 TO N
        PRINT E(I, J);
        IF E(I, J) > M THEN
          M = E(I, J)
          MI = I
        END IF
    NEXT I
    PRINT
    SWAP E(J, J), E(MI, J)
NEXT J
PRINT "Result matrix"
FOR J = 1 TO N
    FOR I = 1 TO N
        PRINT E(I, J);
    NEXT I
    PRINT
NEXT J