Cumple de Neftalí

[Casimiro Noteví]

Yo le haría un par de cambios a ese código, uno funcional y otro de optimización.
Primero: cambiar el nombre de la variable, puesto que si descontamos -(anosNeftali), luego puede traer problemas incluso de salud, así que la nombraría a yearsNeftali.
Segundo: optimizar el código, para ello usaría la función 'dec'

Por lo tanto, el código resultante sería el siguiente:

Código Delphi [-]
Dec(yearsNeftali);

Además hay que teclear menos, ocupa menos el código y el programa se ejecutará más rápido.

p.d. Aunque habría que comprobar qué hace exactamente 'Dec', lo mismo mete más código del necesario.