Как ввести массив в PascalABC.net при помощи Function, не через Procedure

function input_array(n:integer):array of integer;

begin

 var arr:=ReadArrInteger(n);

 Result:=arr;

end;

Begin

 var n:=ReadInteger('Введите количество элементов в массиве');

 var arr:=input_array(n);

 arr.Println;

end.