Pascal for循环习题算法求解！！！！10分相赠！！

Question

var
i,j:integer;
a:string;
begin
  a:='morning';
  j:=1;
  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]);
高手能否写出解答步骤和答案~~！！

Answer 1

第一个for找出字符串中最大元素的下标,第二个循环输出,最后结果'mo'

Answer 2

找出a中ASCII码最大的那位（这里为r），然后输入从第1位（即m）开始，到最大位（r）的前一位。所以结果位mo