有六个数a.b.c.d.e.f :integer.如何把这六个数从大到小排列起来，并取出其序号 (100分)

[h1][/h1]

var i1,i2,i3:integer;
ia:array [1..6] of integer;
begin
ia[1]:=1+a*10;
ia[2]:=2+b*10;
ia[3]:=3+c*10;
ia[4]:=4+d*10;
ia[5]:=5+e*10;
ia[6]:=6+f*10;
for i1:=1 to 5do
begin
i3:=i1;
for i2:=i1+1 to 6do
begin
if ia[i3]>ia[i2] then
i3:=i2;
end;
if i1<>i3 then
begin
i2:=ia[i1];
ia[i1]:=ia[i3];
ia[i3]:=i2;
end;
end;
Memo1.Text:='';
for i1:=1 to 6do
begin
// Memo1.Lines.Add(IntToStr(ia[i1] mod 10)+' '+IntToStr(ia[i1] div 10));
Memo1.Lines.Add(chr(96+ia[i1] mod 10)+' '+IntToStr(ia[i1] div 10));
end;
end;

用数组要的不
不晓得你说的序号是啥子哦，是不是a=1 b=2……
a1:array[0..5] of integer;
a2:array[0..5] of integer;
b:integer;
//对a1[]数组付值
……
//用冒泡法排序获得a2数组。
if a1[1]>a1[0] then

begin
a1[0]:=b;
a2[0]:=a1[1];
a2[1]:=b;
end;
…………
//读a2数组中的数，到a1中找位置

分別輸入數組,用露泡法!!

把这些值写到数组中，数组有排序的方法的。
语言不一样，方法名称可能也不一样。如。
sort()

序号就是这个数排第几。

这个是基本的排序问题啊。

接受答案了.