Revisão de De dois Vetores uni-dimensionais com LOOP e Consulta - Pascal

A estrutura é a mesma mas a consulta se torna interessante...

Resultado:

Esse ficou mais elaborado não é meus padawans ?!!!