Pascal/Turbo Pascal - mi problema es que a la hora de ingresar los datos es infinito

Filtrado por el usuario: Eduardo
Filtrado por el usuario 'Eduardo' (Eliminar fitro)
 
Vista: