Hola.
Aunque no comentas si es un error, por lo que veo en el código sólo debería salirte una advertencia de que la variable 'j'
podría no estar inicializada.
Eso sucede por que existen valores no contemplados, para los cuales el valor de 'j' quedaría indeterminado.
Bastaría con que inicialices la variable j antes de la primera condición: j:= 0; por ejemplo, para que desaparezca la advertencia.
Saludos.
