Админе?

Ја имам Убунту 9.10 и компајлер FPC 2.2.2-8. Мислим да пише да и сајт користи исти...
Зашто код мене хоће да искомпајлира ово, а на сајту неће???????? (задатак molecular mass)

var i,j,max,b,n:longint;
a:array[1..2000]of array[1..2000]of char;
function dfs(i,j:integer):integer;
begin
if a[i,j]='N'then dfs:=14
else if a[i,j]='H'then dfs:=1
else if a[i,j]='C'then dfs:=12
else if a[i,j]='O'then dfs:=16;
a[i,j]:='.';
if a[i,j+1]='-'then begin
a[i,j+1]:='.';
inc(dfs,dfs(i,j+2))
end;
if a[i,j-1]='-'then begin
a[i,j-1]:='.';
inc(dfs,dfs(i,j-2))
end;
if a[i+1,j]='|'then begin
a[i+1,j]:='.';
inc(dfs,dfs(i+2,j))
end;
if a[i-1,j]='|'then begin
a[i-1,j]:='.';
inc(dfs,dfs(i-2,j))
end
end;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
for j:=1 to n do
if(a[i,j]<>'.')and(a[i,j]<>'-')and(a[i,j]<>'|')then begin
b:=dfs(i,j);
if b>max then max:=b
end;
writeln(max)
end.