运行以下程序，LOG提示有ERROR，数组下标越界，求解？

data crackman;
input year x1 x2 x3 x4@;
datalines;
1999 1 2 3 4
2000 1 2 3 4
2001 9 8 7 6
2002 0 5 7 8
2003 7 6 5 4
;
data result;
array c{1999:2002,4}  _temporary_;
/*array c{4,4}  _temporary_;*/
if _n_=1 then
do i=1 to 4;
  set crackman;
  array yr{*} yr1-yr4;
  do j=1 to dim(yr);
    c(i,j)=yr(j); *此处SAS出现错误，数组下标越界，怎么解？;
  end;
  output;
end;
drop i j;
run;