>>350
　　　　　end;
　　　　　j:=j+1000;
　　　　end;　　　　　　　　　　//←１、ここまでループするはずなのに
　　　　exit;
　　　end;
　　end;
　end;
end;

↑なんでここに EXIT がはいってるの？意味無いような。