大牛帮我看看为什么这么多超时呀？ ？？？？？

应该怎么改？

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：运行超时...

├ 测试数据 03：运行超时...

├ 测试数据 04：运行超时...

├ 测试数据 05：运行超时...

├ 测试数据 06：运行超时...

├ 测试数据 07：运行超时...

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：运行超时...

├ 测试数据 10：运行超时...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：20 有效耗时：0ms

var a:array[1..1000,1..255] of integer;

　　 b:array[1..26] of integer;

　　 s,q:string;

　　 t,l,i,j,k,n,m,x:integer;

function bijiao(c,b:integer):boolean;

var i,j,z,x:integer;

　　begin

　　 i:=1;

　　 while a[c,i]0 do

　　　　 inc(i);

　　　　 dec(i);

　　 j:=1; while a0 do

　　　　　　　　inc(j); dec(j);

　　 if i>j then z:=j else z:=i;

　　 for x:=1 to z do

　　 if a[c,x]>a then begin bijiao:=true;

　　　　　　　　　　　　　　　　　　 exit;

　　　　　　　　　　　　　　 end

　　　　 else if a[c,x]