扫雷游戏

前言
“人生自古谁无死，下个就要轮到你（早死晚死都得死）”。欢迎来到嘟嘟课堂。今天，嘟嘟老师讲一道水题——扫雷游戏。
题目描述
扫雷游戏是一款十分经典的单击小游戏。
在n行m列的雷区中有一些格子含有地雷（称之为地雷格），其他格子不含地雷（称之为非地雷格）。
玩家翻开一个非地雷格时，该格将会出现一个数字——提示周围格子中有多少个是地雷格。
游戏的目标是在不翻出任何地雷格的条件下，找出所有的非地雷格。
现在给出n行m列的雷区中的地雷分布，要求计算出每个非地雷格周围的地雷格数。
注：一个格子的周围格子包括其上、下、左、右、左上、左下、右上、右下八个方向上与之直接相邻的格子。
输入
第一行用一个空格隔开的两个整数n和m，分别表示雷区的行数和列数。
接下来n行，每行m个字符，描述了雷区中的地雷分布情况。字符∗’表示相应的格子是地雷格，字符(?)`表示相应的格子是非地雷格子。相邻字符之间无分隔符。
输出
输出文件包括n行，每行m个字符，描述了整个雷区。用∗表示地雷格，用周围地雷格数表示非地雷格。相邻字符之间无分隔符。
样例输入1
3 3
*??
???
?*?
样例输出1
*10
221
1*1
样例输入2
2 3
?*?
*??
样例输出2
2*1
*21
数据范围限制
对于所有的数据，1≤n≤100, 1≤m≤100。
思路
此题应该最烦的点就是读入吧！其实直接读入一个字符串就行了，再用一个FOR循环将S[J]存入A[I,J]就行了。后面就直接暴力循环，判断A[I,J]是不是雷，不是就判断它身边有多少个雷。注意：有点人把雷记做0，所以会错，是因为有些不是雷的点他旁边全是雷。像这种情况：
雷雷雷
雷？雷
雷雷雷
所以雷最好还是用-1来存。
代码

var
        a:array[0..1000,0..1000] of longint;
        i,j,n,m:longint;
        s:ansistring;
        ch:char;
begin
        assign(input,'mine.in');reset(input);
        assign(output,'mine.out');rewrite(output);
        readln(n,m);
        for i:=1 to n do
        begin
                readln(s);
                for j:=1 to length(s) do
                        if (s[j]='*') then a[i,j]:=-1;
        end;
        for i:=1 to n do
        begin
                for j:=1 to m do
                begin
                        if (a[i,j]<>-1) then
                        begin
                                if (a[i-1,j]=-1) then inc(a[i,j]);
                                if (a[i+1,j]=-1) then inc(a[i,j]);
                                if (a[i,j-1]=-1) then inc(a[i,j]);
                                if (a[i,j+1]=-1) then inc(a[i,j]);
                                if (a[i-1,j-1]=-1) then inc(a[i,j]);
                                if (a[i-1,j+1]=-1) then inc(a[i,j]);
                                if (a[i+1,j-1]=-1) then inc(a[i,j]);
                                if (a[i+1,j+1]=-1) then inc(a[i,j]);
                        end;
                end;
        end;
        for i:=1 to n do
        begin
                for j:=1 to m do
                        if (a[i,j]=-1) then write('*') else write(a[i,j]);
                writeln;
        end;
        close(input);
        close(output);
end.