.........Задача.
Найти наименьший элемент матрицы X(n*m) и записать нули
в ту строку и столбец,где он находится.
min_i := 1; min_j := 1;
for i := 1 to n do { n - число строк }
for j := 1 to m do
if a[min_i, min_j] > a[i, j] then begin
min_i := i; min_j := j;
end;