Составить программу нахождения максимального числа из 15 целых чисел

PascalABC

const 
n = 10;
var 
    a := ArrRandom(n);
    max : integer;
begin 
a.Println;
 for var i:=0 to n-1 do
  if (a[i] > max)
    then max:=a[i];
writeln(max);
end.