Un problema con repeat

Hola, el problema es: un abuelo le da a su nieto 1 euro al nacer, en un año le da el doble, en un año el doble, etc... Calcular los años necesarios para que el nieto acumule 1000000 euros. No hay ni entrada ni nada, es un solo cálculo. Lo hice así:
cantidad_anual_que_recibe:=1;
repeat
cantidad_anual_que_recibe:=cantidad_anual_que_recibe*2;´
anos_que_se_tarda:=anos_que_se_tarda+1;
total:=total+cantidad_anual_que_recibe;
until total=1000000;
writeln(anos_que_se_tarda);
Y creo que me da bucle infinito. Gracias.