OJ Board

hi all.. i keep getting WA.. don't know what's wrong..

is there any tricky???? or maybe i'm doing wrong with the input??

anyway here is my code, can someone trace it/show my mistake???

***********

program wetland;
const
max=100;
movb:array[1..8] of longint = (0,-1,0,1,1,1,-1,-1);
movk:array[1 ...