Задача матрицы найти максимальный элемент матрицы 16 2 8 9 14 27 (М 6) необходимо решение и блок-схема

Program Max_element_massiva ; Var i, n, max : integer ;     A : array [1..100] of integer;Begin Writeln('Введите количество элементов массива') ; Readln(N) ;Randomize; For i := 1 to N do begin A[i] := Random(100); Write(A[i]); end;      Max := A[1]; For i := 2 to N do if A[i]>Max then Max := A[i]; Writeln('Максимальный Элемент массива = ',Max) ;Readln ;End.