拿不到80分竟因为他

type shit=record
     dl:char;
     sm:integer;
end;
var
s:string;
a:array[-1..1001,-1..1001]of shit;
i,j,n,m:integer;
begin
  readln(n,m);
  for i:=-1 to 1001 do
    for j:=-1 to 1001  do
    a[i,j].sm:=-1;
  for i:=1 to n do
    begin
      readln(s);
      for j:=1 to length(s) do
      a[i,j].dl:=s[j];
    end;
  for i:=1 to n do
    for j:=1 to m do
    a[i,j].sm:=0;
  for i:=1 to n do
    for j:=1 to m do
    begin
      if (a[i,j].dl='*') then
      begin
        if a[i+1,j].sm<>-1 then
          inc(a[i+1,j].sm);
        if a[i+1,j+1].sm<>-1 then
          inc(a[i+1,j+1].sm);
        if a[i+1,j-1].sm<>-1 then
          inc(a[i+1,j-1].sm);
        if a[i,j-1].sm<>-1 then
          inc(a[i,j-1].sm);
        if a[i,j+1].sm<>-1 then
          inc(a[i,j+1].sm);
        if a[i-1,j-1].sm<>-1 then
          inc(a[i-1,j-1].sm);
        if a[i-1,j].sm<>-1 then
          inc(a[i-1,j].sm);
        if a[i-1,j+1].sm<>-1 then
          inc(a[i-1,j+1].sm);
      end;
    end;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
    if a[i,j].dl='?' then
      write(a[i,j].sm)
    else write('*');
    end;
    writeln;
  end;
end.