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

Делал в Pascal ABC.var a:array of integer;          i,n,max:integer;beginreadln(n);setlength(a,n);for i:=0 to n-1 do begina[i]:=-100 + random(201);if (i = 0) or (a[i] > max) then max:=a[i];end;writeln(a);writeln('max = ',max);end.