uses crt;
const nn=15;
type tt=1..nn;
var n,m:tt;
c:0..nn*nn;
x:byte;
i,j:tt;
e,r:set of tt;
a:array[tt,tt]of integer;
function f(i,j:tt):boolean;
var q,w:-1..2;
d:boolean;
begin
d:=2<3;
q:=-1;
while d and (q<=1) do
begin
w:=-1;
 while d and (w<=1) do
 begin
  if q*q+w*w<>0  then
   if (i+q in e) and (j+w in r)  then d:=d and (a[i,j]<a[i+q,j+w]);
  inc(w);
 end;
 inc(q)
end;
f:=d;
end;
begin
write('m=');
readln(m);
write('n=');
readln(n);
e:=[];
r:=[];
for j:=1 to n do r:=r+[j];
for i:=1 to m do
begin
e:=e+[i];
for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   readln(a[i,j]);
end;
end;
c:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
 x:=ord(f(i,j));
 textcolor(11+x);
 c:=c+x;
 write(a[i,j]:7);
end;
writeln;
end;
writeln(c);
end.