целтаб Dat (1:12)
цел к,m,month
Dat(1)=5
Dat(2)=5
Dat(3)=6
Dat(4)=8
Dat(5)=8
Dat(6)=5
Dat(7)=3
Dat(8)=7
Dat(9)=4
Dat(10)=4
Dat(11)=8
Dat(12)=7
month:=1. m=Dat(1)
нц для к от 2 до 12
если Dat(к)>=m то
m:=Dat(k) month:=k

Ищется самый большой или последний равный большому элементу, в данном случае значение чего-то каждого месяца.m будет равно 8, аmonth будет равно 11