我的程序前5点错,后5点对,且前5点答案与标准相差总是很小,请大牛指点.

program ex;

type kn=record

w,p:longint;

end;

var a:array[1..100000]of longint;

q:array[1..5,1..100000]of kn;

s:kn;

h,r:array[1..100000]of longint;

t,f:array[1..5,0..100000]of longint;

n,u,i,j,m,k,l:longint;

begin

readln(m,n,k,l);

for i:=1 to n do

begin

t:=0;

for j:=1 to m do

begin

read(t);

t:=t+t;

end;

readln;

end;

for i:=1 to n do

begin

h[i]:=1;

r[i]:=1;

q.w:=-k;

q.p:=0;

end;

for i:=1 to m do

for j:=1 to n do

begin

while q[j,h[j]].p+l=s.w do

begin

dec(r);

if r