составить програму которая находит в одномерном массиве мах значение всего n элементов в массиве

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  Writeln('Max=',a.Max)end.Тестовое решениеn= 155 31 -24 31 -72 49 -19 -42 86 73 92 -11 -4 -81 -85Max=92

var    i, n: integer;    a: array[1..100] of integer;begin    write('n = '); readln(n);        for i := 1 to n do     begin        a[i] := random(100) - 50;        write(a[i], ' ');        if (i=1) or (max<a[i]) then        max:=a[i];    end;    writeln();           writeln('Max: ', max);end.