procedure PassDnyArray(arr:array of integer);
var
i:integer;
begin
for i:=1 to GetLength(arr) do PrintInteger(arr);
end;
procedure UseDnyArray;
var
dnyA:array of integer;
i:integer;
begin
setlength(dnyA,10)
for i:=1 to 10 do dnyA:=i;
PassDnyArr(dnyA);
end;
