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

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.