I input the following:

data a;                                                                                                                                 
input t x;                                                                                                                              
cards;                                                                                                                                 
1 10                                                                                                                                    
2 13                                                                                                                                    
3 17                                                                                                                                    
4 14                                                                                                                                    
5 16                                                                                                                                    
6 18                                                                                                                                    
7 15                                                                                                                                    
8 12                                                                                                                                    
9 11                                                                                                                                    
10 15                                                                                                                                   
;                                                                                                                                       
run;                                                                                                                                    
data b;                                                                                                                                 
array ax{10};                                                                                                               
        do i = 1 to 10;                                                                                                                 
                set a point=i;                                                                                                         
                ax{i} = x;                                                                                                              
        output;                                                                                                                        
        end;                                                                                                                           
run;                                                                                                                                    
data c;                                                                                                                                 
        do j = 2 to 10;                                                                                                                 
        set b;                                                                                                                          
        r = ax{j+1} / ax{j};                                                                                                   
        output;                                                                                                                        
        end;                                                                                                                           
run;                                                                                                                                    
proc print data=c;                                                                                       
var r;                  
run;                                                                                                                                    

1, U have to add a "stop;" sentence in the end of "data b" code.
2, U have set "i = 2 to 10", but computer couldn't understand what ax{i+1} means when i = 10.

U can find my advice below.

data c;
        array ax{10};
        do i = 1 to 10;                                                                                                                 
                set a point=i;                                                                                                         
                ax{i} = x;                                                                                                                                                                                                                                 
        end;
        do j = 1 to 9;   
                r = ax{j+1} / ax{j};
                output;
        end;
        stop;
run;