OPTIONS NODATE NONUMBER LS=64;

DATA r8; 
   INFILE 'c:\courses\sassem\sem1\read8.csv' delimiter=',';
   INPUT id $ type $ score @@;

PROC PRINT DATA = r8;
TITLE 'Unsorted Data';

PROC SORT DATA = r8; 
     BY type DESCENDING score;

PROC PRINT DATA=r8;
     ID type score;
TITLE 'Sorted Data';

RUN;