Алгоритм (блок-схема, программа на языке pascal) для нахождения максимального элемента в массиве из 10 случайных элементов

Код рабочий, проверял на PascalABC

uses GraphABC;
var  m: integer;  arr: array [1..10] of integer;  
begin
  for var i := 1 to 10 do
  begin
    arr[i] := Random(120,200);
  end;
  m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10];
  println(m);
end.