Pascal/Turbo Pascal - alguien que traduzca este pseudicodigo a pascal porfa

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