Напишите функцию которая находит максимальный элемент переданного ей динамического массива (паскаль)

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!function amax(a:array of integer):integer;begin  Result:=a.Maxend;begin  var x:=ArrRandom(ReadInteger('n='),-50,50); x.Println;  Writeln('Максимальный элемент равен ',amax(x))end.Примерn= 15-21 9 27 -46 -17 -21 22 50 -50 -47 -20 43 -23 43 -46Максимальный элемент равен 50