Нахождение наибольшего элемента всего массива. (Паскаль)

const n=10; var a: array[1… n] of integer; i, max: integer; begin for i: =1 to n do begin a[i]: =random (100); write (a[i], '); if (a[i] > max) then max: =a[i]; end; writeln; writeln ('Наибольший эл. Массива: ', max); end.