program z8_97;
var
a:array[1..100,0..100] of integer;
n,m,i,j, min,k : integer;
begin
write('Ââåäèòå êîëè÷åñòâî ñòðîê â ìàòðèöå ');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ â ìàòðèöå ');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('ââåäèòå A[',i,',',j,'] ');
readln(a[i,j]);
end;
min:=a[1,1];
k:=1;
for j:=1 to m do
for i:=1 to n do
if a[i,j]< min then begin
min:=a[i,j];
k:=j;
end;
for j:=0 to k-1 do
for i:=1 to n do
a[i,j]:=a[i,j+1];
for i:=1 to n do
a[i,k]:=0;
for i:= 1 to n do
begin
for j:=0 to m do
write(a[i,j]:3);
writeln;
end;
End.