is there anyone who can help R Error in while (x <= 100) { : argument is of length zero

Question

x = 0
while (x <= 100){
  x = x + sample(1:6,1,replace = F)
  ladder.bottom = c(1,4,9,21,28,36,51,80)
  ladder.top = c(38,14,31,42,84,44,67,100)
  chute.bottom = c(6,