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

PascalABCconst 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.