在delphi中新建一个库单元文件，添加以下功能函数:
对有100个元素的整数数组进行升序排列，分别用冒泡、选择、插入排序法。
1) 使用for 语句
2) 使用While 语句
3) 使用Repeat 语句
他们要求要写9个函数，请教哪位高手能帮哈忙啊~
小弟是菜鸟，所以请指教！！
我今天写了一个这个函数，不晓得可以不哈，拿出来请高手指教哈~
function MaopaoSort(var a : array of integer; var n : integer) : integer;
var
i,j,k : integer;
begin
for i := 0 to n-2 do
for j := i+1 to n-1 do
if a[j] < a[i] then
begin
k := a[i];
a[i] := a[j];
a[j] := k;
end;
end;
但是我在测试得到时候想给a赋值，怎么老是赋不起起哈！
我是这样处理的：
a[6] := (23,45,56,78,89,23);
[错误] Main.pas(33): ')' expected but ',' found它就提示我这样的错误，拿问大虾知道啊，请指教哈哟，非常感谢啊
还有怎么随机的产生一百个随机的整数并赋给一个文本框呢？
在这里小弟拜谢了哈~

[此贴子已经被作者于2006-12-21 8:33:56编辑过]

a : array of integer
这里a[6]只有一个存储空间，只能赋一个值，；
a[6] := (23,45,56,78,89,23);
这个如果你表示赋给a[1]到a[6]的话，就得用6次赋值。
a[1]:=23;a[2]:=45;a[3]:=56;a[4]:=78;a[5]:=89;a[6]:=23;
function Random [ ( Range: Integer) ];取随机；

Randomize;
edit1.Text:=inttostr(random(10));

恩，非常感谢nongen~！