排序过程！请问我该怎么办呢？

[hhsj]

排序过程不能用

procedure PaiXuProc(a:array of integer);
var
j,k:integer;
Temp:integer;
Flag:boolean;
begin
for j:=1 to high(a)-1 do
begin
Flag:=False;
for k:=1 to k-j-1 do
begin
if a[k]>a[k+1] then
begin
Temp:=a[k];
a[k]:=a[k+1];
a[k+1]:=Temp;
Flag:=True;
end;
end;
if Flag=False then break;
end;
end;

我在一个函数里定义了一个数组
ai:array[0..8] of integer;

然后在该函数里调用上面的排序过程
PaiXuProc(ai);
但输出的数组依旧是原来的样子！！

我该怎么办呢？

[bear_c]

procedure PaiXuProc(var a:array of integer);

[taidy]

procedure PaiXuProc(var a:array of integer);
你传参数进去等于复制了一份，array 本身不变，传地址进取就可以了（上面）

[Jerry529]

同意楼上的。

[qybao]

同意楼上

[hhsj]

不同C语言吗？好象C语言是传入指针的！

[robbot]

指针就是地址

[robbot]

指针就是地址

[hhsj]

但我过程这么定义
procedure PaiXu(a:array of ingtger);
的时候传入数组时候为什么结果没有排序呢？
如果传入的是指针的话应该会改变a的值呀！？？