就过3个点 剩下wrong answer

program vj1391;

var i,j,n,m,k,x,y,z,head,tail,t,h:longint;

a:array[1..2000,1..2000] of longint;

f:array[1..2000] of longint;

d:array[1..2000] of longint;

e:array[1..2000] of boolean;

function min(x,y:longint):longint;

begin

if x=0 then

exit(y)

else

if xf[i] then

begin

f[i]:=h;

if e[i]=false then

begin

inc(tail);

tail:=(tail-1)mod 2000+1;

d[tail]:=i;

e[i]:=true;

end;

end;

end;

end;

end;

for i:=2 to n do

writeln(f[i]);

end.