program Matrix1;
var
j,i,M,N:integer;
a: array [1..10,1..10] of integer;
minI,minJ:integer;
begin
// Ввод данных
writeln('Введите числа M (M<=10) и N (N<=10)');
 read(N); readln(M);
// Решение
minI:=1;
minJ:=1;
 for i:=1 to N do begin
 for j:=1 to M do
 begin
 a[i,j]:=random(100); // заполнение матрицы случайными значениями
 if a[i,j]<a[mini,minj] then begin mini:=i; minj:=j; end;
 end;
 end;
writeln('Исходный массив');
 for i:=1 to N do begin
 writeln;
 for j:=1 to M do write(a[i,j]:3,' ');
 end;

// Ответ
 for j:=1 to M do a[mini,j]:=0;
 for i:=1 to N do a[i,minj]:=0;
writeln;
writeln('Ответ');
 for i:=1 to N do begin
 writeln;
 for j:=1 to M do write(a[i,j]:3,' ');
 end;
end.