Fill with ones below the first match with a number for each id

Question

I have a panel data structure with 32 IDs and observations from 1980 to 2010. It looks like this (only with id 1 and 2).

dput(a)
structure(list(id = c(1L, 2L,