有关数的排列的问题(200分)

有一组数字分别存放在edit1~edit10中
要求将他们从小到大进行排列后重新存放回edit1~edit10中

希望各位大虾提供宝贵意见，谢了
要详细的源码 ，分数不够可以再加，我不介意的

l:=1;
repeat
flag:=true;
for j:=1 to 25-l do
if a[j]>a[j+1]
then begin
temp:=a[j];
a[j]:=a[j+1];
a[j+1]:=temp;
flag:=false;
end;
l:=l+1;
Until flag;

接受答案了.