for i:=1 to s1 do for j:=1 to s2 do      //розміщення чисел
if a[i,j]<>'+' then
   begin
        n:=0;
        if (i<>1) and (j<>1) and (a[i-1,j-1]='+')  then inc(n);
        if (i<>1) and (a[i-1,j]='+') then inc(n);;
        if (i<>1) and (j<>s2) and (a[i-1,j+1]='+') then inc(n);;
        if (j<>1) and (a[i,j-1]='+')  then inc(n);
        if (j<>s2) and (a[i,j+1]='+') then inc(n);
        if (i<>s1) and (j<>1) and (a[i+1,j-1]='+') then inc(n);
        if (i<>s1) and (a[i+1,j]='+') then inc(n);
        if (i<>s1) and (j<>s2) and (a[i+1,j+1]='+') then inc(n);
        if n<>0 then a[i,j]:=IntToStr(n) else a[i,j]:=' ';
   end;