Найти наименьшее значение среди отрицательных элементов матрицы - QBasic (28011)

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