uses crt;
var f:text; n,m,i,j,x,y,d1,d2,dd1,dd2,g,h:longint; 
a:array[1..1000,1..10000]of char;
b:array[1..1000,1..10000]of byte;
begin
clrscr;
   assign(f,'input.pas');reset(f);
      readln(f,n,m);
      for i:=1 to n do 
         begin
            for j:=1 to m do begin a[i,j]:='O'; read(f,b[i,j]); end; 
            readln(f);
         end;
   assign(f,'output.pas');rewrite(f);
      for i:=1 to n do 
         begin
            for j:=1 to m do 
               if b[i,j]=1 then
               begin
                  d1:=0; d2:=0; dd1:=0; dd2:=0; 
                  for x:=1 to i-1 do 
                     if a[x,j]='X' then inc(d1) else 
                     if a[x,j]='V' then inc(d2);
                  for x:=1 to j-1 do 
                     if a[i,x]='X' then inc(dd1) else 
                     if a[i,x]='V' then inc(dd2);
                  if abs(d1-d2)>=abs(dd1-dd2) then 
                     if d1>=d2 then a[i,j]:='V' else a[i,j]:='X' 
                  else
                     if dd1>=dd2 then a[i,j]:='V' else a[i,j]:='X';
               end;
         end;
      for i:=1 to n do 
         begin
            for j:=1 to m do write(f,a[i,j],' ');
            writeln(f);
         end;
   close(f);
end.

Kết quả không giống trong đề nhưng hoàn toàn thỏa yêu câu.