Определить максимальный и минимальный элемент двух заданных матриц

CLS
INPUT n, m
DIM x(1 TO n, 1 TO m)
DIM y(1 TO n, 1 TO m)
FOR i = 1 TO n
    FOR j = 1 TO m
        x(i, j) = INT(RND(i) * 100 - 50)
        x(i, j) = INT(RND(j) * 100 - 50)
    NEXT j
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO m
        y(i, j) = INT(RND(i) * 100 - 50)
        y(i, j) = INT(RND(j) * 100 - 50)
    NEXT j
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO m
        xmax = -10 ^ -10
        xmin = 10 ^ 10
        IF x(i, j) > xmax THEN xmax = x(i, j): ixmax = i: jxmax = j
        IF x(i, j) < xmin THEN xmin = x(i, j): ixmin = i: jxmin = j
    NEXT j
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO m
        ymax = -10 ^ -10
        ymin = 10 ^ 10
        IF y(i, j) > ymax THEN ymax = y(i, j): iymax = i: jymax = j
        IF y(i, j) < ymin THEN ymin = y(i, j): iymin = i: jymin = j
    NEXT j
NEXT i
PRINT "Matix X:"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT USING "###"; x(i, j);
    NEXT j
    PRINT
NEXT i
PRINT "Matrix Y:"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT USING "###"; y(i, j);
    NEXT j
    PRINT
NEXT i
PRINT
PRINT "Maximal elements:"
PRINT "xmax=", xmax
PRINT "ymax=", ymax
PRINT "Minimal elements:"
PRINT "xmin=", xmin
PRINT "ymin=", ymin
PRINT
PRINT "imaxy=", iymax
PRINT "jmaxy=", jymax
PRINT "imaxx=", ixmax
PRINT "jmaxx=", jxmax
PRINT "iminx=", ixmin
PRINT "jminx=", jxmin
PRINT "iminy=", iymin
PRINT "jminy=", jymin
END

CLS
INPUT n, m
DIM x(n, m), y(n, m)
RANDOMIZE TIMER
PRINT "X(n,m)"
FOR i = 1 TO n
    FOR j = 1 TO m
        x(i, j) = INT(RND(i) * 100 - 50)
        y(i, j) = INT(RND(i) * 100 - 50)
        PRINT USING "####";x(i, j);
   NEXT j
PRINT
NEXT i
PRINT "Y(n,m)"
minx = x(1, 1):miny = y(1, 1)
FOR i = 1 TO n
FOR j = 1 TO m
IF x(i, j) > maxx THEN maxx = x(i, j)
IF x(i, j) < minx THEN minx = x(i, j)
IF y(i, j) > maxy THEN maxy = y(i, j)
IF y(i, j) < miny THEN miny = y(i, j)
PRINT USING "####";y(i, j);
NEXT j
PRINT
NEXT i
PRINT
PRINT "maxX="; maxx, "minX="; minx
PRINT "maxY="; maxy, "minY="; miny