Pascal/Turbo Pascal - ¿Error de este subprograma?

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