Помогите пожалуйста по QBasic

[kaf-17]

Получить новую матрицу, в которой наименьшие и наибольшие элементы поменяли местами. На языке QBasic. Будет работать пришлю деньги. Напишите сколько или вышлю большую шоколадку. Заранее спасибо.

[n@sok]

CONST WIDTH = 10 ;Ширина матрицы
CONST HEIGHT = 10 ;Высота матрицы

OPTION BASE 1
DIM A(WIDTH, HEIGHT) ;Матрица

FOR J% = 1 TO HEIGHT
  FOR I% = 1 TO WIDTH
    INPUT A(I%, J%) ;Ввод матрицы
  NEXT I%
NEXT J%
MIN = A(1, 1) : MAX = A(1, 1) ;Минимальный и максимальный элементы
MINI% = 1 : MINJ% = 1 ;Индексы минимального элемента
MAXI% = 1 : MAXJ% = 1 ;Индексы максимального элемента
FOR J% = 1 TO HEIGHT
  FOR I% = 1 TO WIDTH
    IF A(I%, J%) < MIN THEN ;Поиск минимального элемента
      MIN = A(I%, J%)
      MINI% = I% : MINJ% = J%
    END IF
    IF A(I%, J%) > MAX THEN ;Поиск максимального элемента
      MAX = A(I%, J%)
      MAXI% = I% : MINJ% = J%
    END IF
  NEXT I%
NEXT J%
TEMP = A(MINI%, MINJ%) ;Обмен местами элементов
A(MIN%, MINJ%) = A(MAXI%, MAXJ%)
A(MAXI%, MAXJ%) = TEMP
FOR J% = 1 TO HEIGHT
  FOR I% = 1 TO WIDTH
    PRINT A(I%, J%), ;Вывод матрицы
  NEXT I%
  PRINT
NEXT J%
END

Денег мне не нужно, но от шоколадки не откажусь