我用的Ubuntu9.10＋Chrome4.0.223.11,提交程序出现编译错误

http://www.vijos.cn/Record_Show.asp?id=1723602

编译失败...|错误号:1

Prog87655.pas(2,5) Fatal: Syntax error, "identifier" expected but "ordinal const" found Fatal: Compilation aborted 

---|---|---|---|---|---|---|---|- Unaccepted 有效得分：0 有效耗时：0ms

应该是换行符的问题，Chrome in Windows的换行符问题刚刚解决，但Chrome in Linux的问题很严重。。。

建议管理员对评测系统进行改进，加一个换行符转换，而不是对网页进行改进，毕竟不能保证每一款浏览器都能很好的兼容Vijos，建议而已。。。。。。

program vijos_1697;type  TNode=record    fa:longint;    data:boolean  end;const  maxN=200;var  n,m,q:longint;  d:array[1..maxN] of TNode;procedure init;var  i:longint;begin  readln(n,m,q);  for i:=1 to n do d[i].fa:=i;end;procedure _read(var n:longint);var  c:char;begin  repeat read(c); until c='l';;  read(n);end;procedure _read(var b:boolean);var  c:char;begin  repeat read(c); until c in ['p','v'];  b:=c='v';end;function root(i:longint):longint;begin  if d[i].fa=i then exit(i);  root:=root(d[i].fa);  d[i].data:=d[i].data xor d[d[i].fa].data;  d[i].fa:=root;end;function getData(x,y:longint):boolean;begin  root(x);  root(y);  exit(d[x].data xor d[y].data);end;procedure union(x,y:longint;newD:boolean);var  i,j:longint;begin  i:=root(x);  j:=root(y);  d[i].fa:=j;  d[i].data:=d[x].data or newD xor d[y].data;end;procedure print(flag:longint);begin  case flag of    0:begin      writeln('There must be something wrong...');      halt;    end;    1:writeln('No idea.');    2:writeln('Vertical.');    3:writeln('Parallel.');  end;end;procedure main;var  i,j,x,y,ans:longint;  d:boolean;begin  for i:=1 to m do begin    _read(x); _read(d); _read(y);    readln;    if root(x)root(y) then union(x,y,d)    else      if getData(x,y)d then print(0);  end;  ans:=0;  for i:=1 to n do    for j:=i+1 to n do      if (root(i)=root(j)) and (getData(i,j)=false) then inc(ans);  writeln(ans);  for i:=1 to q do begin    _read(x); _read(y); readln;    if root(x)root(y) then print(1)    else print(2+ord(getData(x,y)));  end;end;begin  init;  main;end.