Программа нахождения наибольшего элемента массива

Делал в Pascal ABC.

var a:array of integer;   
      i,n,max:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=-100 + random(201);
if (i = 0) or (a[i] > max) then max:=a[i];
end;
writeln(a);
writeln('max = ',max);
end.