В двумерном массиве найти наименьшее значение среди отрицательных элементов. Записать в качестве последнего элемента — QBasic(Бейсик)

INPUT n
INPUT m
DIM a(n,m)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1to m
a(i,j) = INT(RND(1)*10)-5
IF a(i,j)<min THEN min = a(i,j)
? a(i,j);
NEXT
?
NEXT
IF min<0 THEN a(n,m)=min
?
?
FOR i = 1 TO n
FOR j = 1 TO m
? a(i,j);
NEXT 
?
NEXT