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

Filtrado por el usuario: Nahum
<<>>
Filtrado por el usuario 'Nahum' (Eliminar fitro)
 
Vista: