паскаль, нахождения макс. в массиве, помогите пожалуйста!!!

const a = 35;

var n, i, max: integer;

s: array[1..a] of integer;

begin

readln(n);

for i:=1 to n do read(s[i]);

max := s[1];

for i:=2 to n do if s[i] > max then max:=s[i];

writeln(max);

end.