pascal 连续若干个正整数之和为1000,求有多少种这样的数列.

const m=1000;
var tt,i,answer:integer;b:boolean;
procedure find(x:integer);
begin
inc(tt,x);//tt:=tt+x;
if (tt>m)or(b=false)then
begin
b:=false;exit;
end;
if tt