Помогите закончить на Qbasic, Помогите закончить на QBASIC Опции

[Pav]

Помогите закончить на QBASIC прогу. Задание такое .Дана действительная квадратная матрица А размера n х n. Определить наименьший элемент матрицы среди положительных и номера строки и столбца, на пересечении которых элемент находится.
Вот что у меня вышло

Код

n = 5
DIM a(n, n)

' Ввод исходной матрицы
FOR i = 1 TO n
    FOR j = 1 TO n
        INPUT "Введите элемент матрицы "; a(i, j)
    NEXT j
NEXT i

' Вывод исходной матрицы
PRINT "Матрица А"
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT j
    PRINT
NEXT i

' Обработка матрицы A
min = a(1, 1): k = 1: m = 1
FOR i = 1 TO n
   FOR j = 1 TO n
        IF a(i, j) < min THEN
                           min = a(i, j)
                           k = i
                           m = j
        END IF
   NEXT j
NEXT i

' Вывод результатов    
PRINT "Минимальный элемент="; min
PRINT "Строка ="; k, "Столбец="; m
END

Суть проблемы как видете в том, что минимальный элемент нашел, а как сделать чтобы выборка была из положительных-головы сломал...