Как ввести массив в 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.