Exitcode 201 - Free Pascal (502)

Формулировка задачи:

Добрый день. Есть код Соре,~~я даун~~ скопировать с фрипаскаля не могу, вложу файликом) (ссылка на скрин - http://puu.sh/lD93j/846edd4dd6.png) Сам скрин для недоверчивых Ошибка - exitcode 201, помогите, пожалуйста. Смысл задачи - в квадратном поле N x N раставлено M мин, к каждой нельзя приближаться на растояние меньше чем в одну координату, даже по диагонали. Сколько осталось клеток, куда можно "наступить"? ПС - ссылку вставил ибо там можно увеличить изображение.

Решение задачи: «Exitcode 201»

textual
                            Листинг программы 
                        
                            var a: array [0..maxn+1,0..maxn+1] of ...