array atrss atrss_1 ... ;
Remove the (i) from the first line and you're fine.
I would note that you're not renaming, per se - you can't do a rename that way - but of course it accomplishes the same goal.
You can improve this further, although it works okay as is:
array atrss atrss_1 atrss_12 atrss_13 atrss_25 atrss_29 atrss_30 atrss_32 atrss_33 atrss-35 atrss_36;
array dis(10);
do i = 1 to dim(atrss);
dis[i] = atrss[i];
end;
That makes it slightly more flexible, if you change the number of elements in atrss. do i = 1 to 10;
is also acceptable - much easier than spelling them each out, anyway.