вопрос по QBasic

[kaf-17]

Дана матрица A(N,M). Поменять местами её наибольший и наименьший элементы. QBasic. помогите пожалуйста! Заранее спасибо люди добрые.

[Tayfun]

QBasic... Как давно это было...

CLS
INPUT n, m
DIM a(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND(1) * 10)
PRINT a(i, j);
NEXT j
PRINT
NEXT i
min = a(1, 1)
max = a(1, 1)
p = 1
k = 1
x = 1
y = 1

FOR i = 1 TO n
FOR j = 1 TO m
IF max < a(i, j) THEN max = a(i, j): p = i: k = j
IF min > a(i, j) THEN min = a(i, j): x = i: y = j
NEXT j
NEXT i
PRINT
PRINT p, k
PRINT x, y

z = a(p, k)
a(p, k) = a(x, y)
a(x, y) = z
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT j
PRINT
NEXT i
END

[Orangys]

Дан массив из целых чисел С(i,j), i=от одного до 5 j=от 1 до 5
Найти max нечетный и min положительный элемент в каждом столбце, потом их нужно друг с другом переставить и отобразить то что получилось на мониторе... Я пробовал как здесь написано, но почему то прога не работает.. как именно нужно её преобразить?