A:ArrayRowExChange(r,n1,n2);
Function ArrayRowExChange(r,n1,n2);
Begin
m:=mcols(r,0);
//二维数组
if m>0 then
begin
tmp1:=r[n1:n1,:];
tmp2:=r[n2:n2,:];
r[n1:n1,:]:=tmp2;
r[n2:n2,:]:=tmp1;
end
//一维数组
else
begin
tmp1:=r[n1];
tmp2:=r[n2];
r[n1]:=tmp2;
r[n2]:=tmp1;
end;
return r;
End;