I've sorted string arrays using this logic. The sort is all done in one line (line 40). The rest of this is just setup for demo purposes.
0010 BEGIN
0020 LET data$="Red,Orange,Yellow,Green,Blue,Indigo,Violet,"
0030 DIM a$[1:POS(","=data$,1,0)]; READ DATA FROM data$,SEP="," TO a${ALL}
0040 READ DATA FROM SRT(REC(CPL("iolist a${all}"))) TO a${ALL}
0050 PRINT "Raw Data: ",data$
0060 PRINT "Sorted Data: ",REC(CPL("iolist a${all}"),SEP=",")