Pascal/Turbo Pascal - me tiene loco no consigo el error

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