Водномерном массиве а(10) найти максимальный элемент

Var i,max:integer;a:array[1..10]of integer;beginfor i:=1 to 10 do readln(a[i]);max:=a[1];for i:=1 to 10 doif a[i]>max then max:=a[i];writeln(max);end.