Pascal/Turbo Pascal - no se que estoy haciendo mal

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