type para =    record
                   val: integer;
                   num: integer;
                   end;
...
a: array[1..10] of para;
... 
a[1].val:=7;
a[2].val:=6;
a[3].val:=5;
a[4].val:=4;
a[5].val:=3;
a[1].num:=7;
a[2].num:=6;
a[3].num:=5;
a[4].num:=4;
a[5].num:=3;
n:=5;
for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i].val>a[j].val then
        begin
          buf:=a[i].val;
          a[i].val:=a[j].val;
          a[j].val:=buf;
        end;

memo1.Clear;
i:=1;
while i<6
 do
 begin
 memo1.Lines.Add(' '+inttostr(i)+' '+inttostr(a[i].num));
 i:=i+1;
 end;