type Cells : %Record to store data for each cell
    record
        x1, y1 : int
        clicked, mine : boolean
        number : int
    end record

var cell_Array : array 1 .. 20, 1 .. 20 of Cells %Array of records, 1 per cell

procedure GenerateNumber
    var num : int := 0
    for i : 1 .. 20
        for ii : 1 .. 20
            if cell_Array (i, ii).mine = false then
                if i not= 20 then
                    if cell_Array (i + 1, ii).mine = true then
                        num := num + 1
                    end if
                end if

                if i not= 20 and ii not= 20 then
                    if cell_Array (i + 1, ii + 1).mine = true then
                        num := num + 1
                    end if
                end if

                if ii not= 20 then
                    if cell_Array (i, ii + 1).mine = true then
                        num := num + 1
                    end if
                end if

                if i not= 1 and ii not= 20 then
                    if cell_Array (i - 1, ii + 1).mine = true then
                        num := num + 1
                    end if
                end if

                if i not= 1 then
                    if cell_Array (i - 1, ii).mine = true then
                        num := num + 1
                    end if
                end if

                if i not= 1 and ii not= 1 then
                    if cell_Array (i - 1, ii - 1).mine = true then
                        num := num + 1
                    end if
                end if

                if ii not= 1 then
                    if cell_Array (i, ii - 1).mine = true then
                        num := num + 1
                    end if
                end if

                if i not= 20 and ii not= 1 then
                    if cell_Array (i + 1, ii - 1).mine = true then
                        num := num + 1
                    end if
                end if
            end if

            cell_Array (i, ii).number := num
            num := 0

        end for
    end for
end GenerateNumber

for x : 1 .. maxcolumns
    for y : 1 .. maxrows
        if grid (x, y) = not_a_mine then
            for i : x - 1 .. x + 1
                for j : y - 1 .. y + 1
                    if grid (i, j) = mine then
                        %add to number of mines count
                    end if
                end for
            end for
        end if
    end for
end for

for x : 1 .. maxcolumns
    for y : 1 .. maxrows
        if grid (x, y) = not_a_mine then
            for i : max(x - 1, 1) .. min(x + 1, maxcolumns)
                for j : max(y - 1, 1) .. min(y + 1 , maxrows)
                    if grid (i, j) = mine then
                        %add to number of mines count
                    end if
                end for
            end for
        end if
    end for
end for