Pascal/Turbo Pascal - URGENTE Bucle infinito en while

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