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

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