Напишите программу и желательно блок-схему к ней: дан массив из 15 случайных чисел найти максимальный элемент

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln('Max=',ArrRandom(15,1,50).Println.Max)
end.

Тестовое решение:
45 28 10 26 15 5 49 39 40 50 19 12 37 35 40
Max=50