Написать программу поиска значения максимального элемента массива

Const n=10;
Var a:array[1..n] of integer; i,max:integer;
Begin
 randomize;
 for i:=1 to n do a[i]:=random(201)-100;
 for i:=1 to n do write(a[i],' ');
 writeln;
 max:=a[1];
 for i:=2 to n do
   if a[i]>max then max:=a[i];
 writeln('max=',max);
End.