Pascal/Turbo Pascal - Ayuda con arrays

Que tal Dieguito, mira estoy haciendo un programa bastante largo, y en el medio de todo eso me surgió un problemita que me gustaría ver si podes resolver. ¿ como hago para, dentro de un vector de 10 componentes, buscar los 5 valores máximos dentro de esos 10, preferentemente depositandolos en otro vector de 5 componentes?, eso es todo nomas, un ejemplito no vendría mal, un saludo.

Ordena el vector de mayor a menor y toma los 5 primeros, o a la inversa y toma los 5 últimos.