Pascal/Turbo Pascal - Necesito ayuda! Alguien podria corregirme el codigo?

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