编写程序：六个变量的d1-d6，数据如下：
1   2   7   23   100   1000
2   3   33   54   56    1000
3   .    4    6      44    100
要求：如果相邻数据小于等于7，则置为缺失。
输出结果如下：
1    .     .      23    100     1000
.     .     33    .        .         1000  
3    .     .      .         44      100

data;
input d1-d6;
array s d1-d6;
do i=1 to 6;
if s(i)-s(i-1)<=7 then s(i)=s(i-1)=.;
end;
cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 . 4 6 44 100
;
run;
proc print;
run;
高手帮我看一下，是哪里错了。谢谢！