begin
var s := 'красный оранжевый желтый зеленый голубой синий фиолетовый';
var ss: array of string := s.ToWords;
ss.Println;
Reverse(ss);
Sort(ss);
s := string.Join('-',ss);
writeln(s);
end.
