Pascal/Turbo Pascal - Apareo de listas y vectores

Hola que tal, estuve pensando mucho como hacer 2 procedimientos, 1 para apareo de listas y otro para apareo de vectores, pero por mas que intenté no pude lograrlo, por eso vengo acá por ayuda, si me pudieran ayudar con estos dos procedimientos sería muy útil, desde ya muchas gracias.