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

function amax(a:array of integer):integer;
begin
  Result:=a.Max
end;


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