Hola amigos miren espero que me puedan ayudar en el siguiente programa con free pascal.
el punto de este programa es que ingresas X cantidad de numeros y te los despliega en pantalla en el orden en el que los fuiste ingresando.
mi duda es como usar el ordenamiento por burbuja (quicksort) para que me los despliegue ordenados de menor a mayor, ya no en el orden en el que los fui ingresando si no que me los vuelva a desplegar pero ahora ordenados de menor a mayor.

les dejo el codigo fuente pero este es para que solo te los vuelva a desplegar como los fuiste ingresando.

PROGRAM bakunos_ayudenme_porfavor;

USES
CRT;
CONST
MX=10000;
TYPE
VECTOR1= ARRAY [1..MX] OF INTEGER;
VAR
LISTA:VECTOR1;
I,N:INTEGER;
R:STRING;
BEGIN
REPEAT
CLRSCR;
WRITELN ('HOLA ESTE PROGRAMA VUELVE A DESPLEGAR EN LA PANTALLA LOS NUMEROS QUE INGRESA, POR FAVOR INGRESE LA CANTIDAD DE NUEMROS QUE VA A INGRESAR ');
READLN (N);
FOR I:=1 TO N DO
BEGIN
WRITELN ('POR FAVOR INTRODUZCA SU ',I,'ø NUMERO');
READLN (LISTA );
END;
FOR I:=1 TO N DO
BEGIN
WRITELN ('LISTA [',I,'] = ',LISTA);
END;
WRITELN ('¨DESEA VOLVER A REPETIR EL PROGRAMA? SI/NO ');
READLN (R);
UNTIL (R='NO') ;
END.}


espero que me pudand ayudar bakunos muchas gracias y espero sus respuestas....