Как поменять местами минимальный и максимальный элемент в каждой строке матрицы.

DIM a(1 TO 5, 1 TO 10) AS INTEGER, i AS INTEGER, j AS INTEGER
DIM max AS INTEGER, min AS INTEGER
 
RANDOMIZE TIMER
FOR i = 1 TO 5
    FOR j = 1 TO 10
        a(i, j) = FIX(RND * 50)
        PRINT a(i, j);
    NEXT j
    PRINT
NEXT i
PRINT
max = a(5, 5)
min = a(4, 4)
 
 
 
FOR i = 1 TO 5
    FOR j = 1 TO 10
        IF a(i, j) > max THEN
            max = a(i, j)
        ELSE
            IF a(i, j) < min THEN
                min = a(i, j)
            END IF
 
        END IF
        SWAP min, max
 
        PRINT a(i, j);
    NEXT j
    PRINT
NEXT i

FOR i=1 TO 5
   max=a(i,1)
   min=a(i,1)
   jmax=1
   jmin=1
   FOR j=1 TO 10
      IF a(i,j)>max THEN
         max=a(i,j)
         jmax=j
      ELSE
         IF a(i,j)<min THEN
            min=a(i,j)
            jmin=j
         END IF
      END IF
   NEXT j
   a(i,jmax)=min
   a(i,jmin)=max
NEXT i

OPEN "Massiv.txt" FOR OUTPUT AS #1
FOR i=1 TO 5
    FOR j=1 TO 10
        PRINT #1,a(i,j)
    NEXT j
    PRINT
NEXT i
CLOSE #1