program PascalGuru;
uses crt;
var A:array[1..100,1..100] of integer;
    B:array[1..100] of integer;
    i,j,n,m,summa,max:integer;
 
{--------------------------------------------}
begin
write('N= '); readln (n);
write('M= '); readln (m);
 
writeln ('Vvedite elementy massiva A: ');
for i:=1 to n do
for j:=1 to m do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;
 
clrscr;
write ('Vot vvedennyi vami massiv A: ');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:4,' '); end;
 
 
 summa:=0;
  for i:=1 to m do begin
  for j:=1 to n do
  summa:=summa+A[j,i]; B[i]:=abs(summa);  summa:=0;   end;
 
 
max:=1;
for j:=1 to m do
if B[j]>B[max] then max:=j;
 
for i:=1 to m do A[i,max]:=3333;
 
writeln;writeln;
write ('Vot obnovlennyi massiv A: ');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:4,' '); end;
 
 
readln;
end.