>>620
２つめの wk[m+1+1] := 0; を消すとか 　SetLength(wk,sz+2); 　とか　
もう少し自分で考えてみるとか