Известна масса 12 предметов определить массу самого большого. Паскаль

var A : array[1..12] of integer; i,max : integer;beginfor i:=1 to 12 dobegin;read(A[i]);if A[i]>max then max:=A[i];end;Writeln(max);end.