Minesweeper

program minesweeper;

var
        x:array[1..100,1..100] of char;
        counter,rng,i,j,m,n,p,q,r,s:integer;

begin
        write('rows: ');
        read(m);
        write('columns: ');
        read(n);

        (*baris*)
        for i:=1 to m do
        begin
                (*kolom*)
                for j:=1 to n do
                begin
                        (*random*)
                        rng:=random(2);
                        if rng=1 then
                        begin
                                x[i,j]:='*';
                        end
                        else
                        begin
                                x[i,j]:='0';
                        end;
                end;
                writeln;
        end;

        (*cek angka*)
        for i:=1 to m do
        begin
                for j:=1 to n do
                begin
                        if (x[i,j]='0') then
                        begin
                                counter:=0;
                                for p:=1 to 3 do
                                begin
                                        for q:=1 to 3 do
                                        begin
                                                if (x[i+2-p,j+2-q]='*') then
                                                counter:=counter+1;

                                        end;
                                end;
                                case counter of
                                0:x[i,j]:='0';
                                1:x[i,j]:='1';
                                2:x[i,j]:='2';
                                3:x[i,j]:='3';
                                4:x[i,j]:='4';
                                5:x[i,j]:='5';
                                6:x[i,j]:='6';
                                7:x[i,j]:='7';
                                8:x[i,j]:='8';
                                end;
                        end;
                end;
        end;

        (*view jawaban*)
        for i:=1 to 3 do
        begin
                for j:=1 to n do
                begin
                        write(x[i,j]);
                end;
        writeln;
        end;

readln;
readln;
end.