[ART]

procedure TForm1.SortPuz(Mass:array of integer);
var
i:integer;
flag:boolean;
temp:integer;
begin
repeat
flag:=false;
for i:=low(Mass) to High(Mass)-1 do begin
if Mass[i]>Mass[i+1] then begin
Temp:=Mass[i];
Mass[i]:=Mass[i+1];
Mass[i+1]:=Temp;
flag:=true;
end;
end;
until flag=false;
end;

Почему когда я пишу
var
arr:array [0..9] of integer;
begin
----Здесь я его заполняю----
SortPuz(Arr); //сортирую
end;

и вывожу (например в listbox) "новый" массив он нифига не сотрируется.
Помоему процедура не изменяет переданный ей массив.