un poquito de ayuda porfavor

[N4ota]

wenas amigos:

los vuelvo a molestar porque necesito un poco de ayuda con codigo de nuevo
eh tenido problemas con una funcion el cual es de la siguiente manera

quisiera poder organizar un numero cualquiera de tal manera k este ordenado de la siguiente manera

supongamos k tenemos el numero
2456187 quisiera que el resultado sea (1er. Mayor)(1er.menor)(2do mayor)(2menor)...y asi sigue osea : 8172645

porfavor que se en base de una funcion

por ejemplo

Código Delphi [-]
function intercalar(n:integer):integer;

no se si me entienden

y quisiera saber si podria postear algunos ejercicios que me han asignado sobre funciones en delphi

desde ya les agradezco toda ayuda y cooperacion que me puedan brindar