type                              
  TMyArr = packed record
    a: Integer;
    TmpLen: Integer;
  end;
排序前TmpLen和a这个元素的值如下:
MyArr[0].TmpLen := 6
MyArr[0].a := 100
MyArr[1].TmpLen := 4
MyArr[1].a := 200
MyArr[2].TmpLen := 5
MyArr[2].a := 800
MyArr[3].TmpLen := 2
MyArr[3].a := 500
MyArr[4].TmpLen := 3
MyArr[4].a := 900
MyArr[5].TmpLen := 1
MyArr[5].a := 1000
------------------------------------------------------------------

for i := High(MyArr) downto Low(MyArr) do //冒泡算法排序
    begin
      for j := Low(MyArr) to i do
      begin
        if MyArr[j].TmpLen > MyArr[j + 1].TmpLen then
        begin
          n := MyArr[j].TmpLen;
          MyArr[j].TmpLen := MyArr[j + 1].TmpLen;
          MyArr[j + 1].TmpLen := n;
        end;
      end;
    end;
   for i := Low(MyArr) to High(MyArr) do //冒泡算法排序
    begin
       MyForm.MeMo3.Lines.Add(inttostr(MyArr[i].TmpLen) + 'A:' + inttostr(MyArr[i].a));   //输出信息
    end;
      我从小到大排序MyArr[i].TmpLenp这个元素,我现在想取出排序后对应 MyArr[i].a 这个元素的内容,该怎么做.实现如下结果:
MyArr[0].TmpLen := 1 对应 MyArr[0].a := 1000
MyArr[1].TmpLen := 2 对应 MyArr[1].a := 500
MyArr[2].TmpLen := 3 对应 MyArr[2].a := 900
MyArr[3].TmpLen := 4 对应 MyArr[3].a := 200
MyArr[4].TmpLen := 5 对应 MyArr[4].a := 800
MyArr[5].TmpLen := 6 对应 MyArr[5].a := 100

请懂delphi的大哥帮忙看下，谢谢。

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)