Срочно!!! Напишите пожалуйста программу и желательно блок-схему к ней: дан массив из 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