program profit;
uses crt;
var m,n:integer;
a:array[1..100,1..16]of integer;
b:array[1..100,1..16]of integer;
c:array[1..16]of integer;
j,k,i,max,l,suma:integer;
f1,f2:text;
begin
clrscr;
assign(f1,'profit.dat');
assign(f2,'profit.res');
reset(f1);
rewrite(f2);
read(f1,m,n);

for i:=1 to m do
 begin
  for j:=1 to n do
   read(f1,a[i,j]);
   readln(f1);
 end;

max:=0;

for i:=1 to m do
begin
 for j:=1 to n do
    begin
     if max<a[i,j] then max:=a[i,j];
     c[i]:=max;
    end;
end;

for i:=1 to m do
 for j:=1 to n do
  if a[i,j]=c[i] then
   b[i,j]:=c[i];

FOR L:=1 TO N DO
 FOR I:=1 TO M DO
  FOR J:=1 TO N-L DO
     BEGIN

        if b[i+L-J,j]+b[i,j]>b[i+L,j] then b[i+L,j]:=0 else
        begin
         b[i+L-J,j]:=0;
         b[i,j]:=0;
        end;
     END;

suma:=0;
for i:=1 to n do
c[i]:=0;
     for i:=1 to m do
         for j:=1 to n do
             begin
                  if b[i,j]<>0 then
                   begin
                     c[j]:=i;
                     suma:=suma+b[i,j];
                   end;
             end;



{vuvudenna masiviv}

for i:=1 to m do
begin
 for j:=1 to n do
  write(a[i,j],' ');
  writeln;
end;
for i:=1 to m do
begin
 for j:=1 to n do
  write(b[i,j],' ');
  writeln;
end;
writeln(max);
{}

for i:=1 to n do
write(f2,c[i],' ');
writeln(f2);
writeln(f2,suma);
close(f2);
end.