DATA ECOAST;                                                                   
FILE PRINT;                                                                    
INFILE IN DLM=',';                                                             
INPUT NAME $ NUM;                                                              
PUT 'NAME ,  NUMBER OF POINTS';                                                
PUT NAME $ NUM;                                                                
LENGTH DEFAULT=4;                                                              
NUM2 = NUM * -1;                                                               
ARRAY X{466};                                                                  
ARRAY Y{466};                                                                  
PUT 'X       ,Y';                                                              
DO I = 1 TO NUM2;                                                              
   INPUT X{I} Y{I};                                                            
   PUT X{I} Y{1};                                                              
   END;                                                                        
RUN;