program Program2；

　 var

　　a，t：string；

　　i，j：integer；

　 begin

　　a：=`morning`；

　　j：= l；

　　 for i：=2 to 7 do

　　　 if (a[j]<a[i])then

　　　　　j：= i；

　　 j：= j-1；

　　 for i：=1 to j do

　　　 write (a[i])；

　　end． 

输出：