Дан массив осадков за каждый денек июля (31 денек) .Найти в

Const N = 4; количество девятидневок в 31 числе
var a: array [1..31]  of integer;заранеее заполненный   
 i, max, d : integer;
begin 
max:=0;
for i:= 1 to 31 do 
if a[i] gt; max then нахождение наибольшего числа и запонимание его девятидневки   
begin     
max := a[i];     
d:= i mod N;   
end; 
writeln(d)вывод девятидневки
end.