I don't understand, why crash(access violation) in test1 ??!!

uses math;
var
n,k,l,m,d,a,i,j:longint;
p:array[0..66000] of longint;

begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(m);
n:=0;
repeat
 inc(n);
 read(p[n]);
until p[n]=-1;
dec(n);

k:=1; d:=n;

while 1 shl k<n do inc(k);

n:=1 shl k;

for l:=d+1 to n do
p[l]:=-1;


for k:=n downto 1 do
begin
p[k+n-1]:=p[k];
end;

for k:=n-1 downto 1 do
begin
p[k]:=max(p[k*2],p[k*2+1]);
end;

for k:=0 to d-m do
begin
i:=k+n; j:=k+m-1+n;
a:=-1;

while i<j do
begin
 if odd(i) then begin a:=max(a,p[i]); inc(i); end;
 if not odd(j) then begin a:=max(a,p[j]); dec(j); end;
 i:=i div 2; j:=j div 2;
end;
a:=max(a,p[i]);

writeln(a);
end;

end.



I use {$R+} on Delphi, FP, TP - nothing Crash.

Edited by author 08.10.2009 11:30

Thank you. Now wa2...