OJ Board

Hi all, Anyone help me check my code. I get PE with this.

const
fin='';
fout='';
maxn=1000 + 10;

dy:array[1..3]of longint=(1,1,1);
dx:array[1..3]of longint=(1,0,-1);

type
diem = record
x,y:longint;
end;

var
fi,fo:text;
m,n,x,y:longint;
a:array[0..maxn,0..maxn]of longint;
trace:array ...