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．
输出：mo