a<-c(6,6,NA,NA,9,9,8,NA,NA,7,NA,NA,NA,NA)
b<-c(NA,NA,NA,NA,NA,NA,NA,NA,NA,8,NA,5,7,NA)

foo <- function(vec){
  na.rm.vec <- vec[!is.na(vec)]
  na.rm.vec[na.rm.vec > na.rm.vec[1]] <- NA
  vec[!is.na(vec)] <- na.rm.vec
  return(vec)
}

foo(a)
# [1]  6  6 NA NA NA NA NA NA NA NA NA NA NA NA
foo(b)
# [1] NA NA NA NA NA NA NA NA NA  8 NA  5  7 NA