массивы в дельфи

[dearkato]

Переписать элементы массива X в массив Y по возрастанию.
Желательно организовать решение задачи в виде блок-схемы, если можно)

[Aiden]

procedure CopyArray(x:array of integer);
var
y:array of integer;
i,n,min,val:integer;
begin
SetLength(y,Length(x));
//находим максимальный элемент массива
n:=x[0];
for i:=0 to Length(x)-1 do
if x[i]>n then n:=x[i];
//указываем, какое значение присваивать обработанным элементам массива х
val:=n+1;
//подставляем элементы
n:=0;
while n<Length(x) do begin
min:=0;
for i:=0 to Length(x)-1 do
if x[min]>x[i] then min:=i;
y[n]:=x[min];
x[min]:=val;
n:=n+1;
end;
end;

[JUDAS]

procedure CopyArray(x:array of integer);

при вызове компилируется ?

[Aiden]

должно. Дельфи под рукой нет