Массив из 12 элементов. Найти наибольший элемент массива

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.