por lo q veo y lo poco q se de pascal te está faltando declarar varias variables, x ej may y men a las cuales le asignaste numeros, además como bien dice en la respuesta anterior das por sentado los valores (2 mayor q 1, etc),
que pasa si es alreves o son iguales? si solo queres usar tres números podes codificar con if.. then pero si fuesen 50 números? te volves loco! existen varias rutinas de ordenación. por ej el metodo conocido como de burbuja, q basicamente lo q hace es comparar el primer numero con el segundo si el primero es mayor lo intercambia y si es menor lo deja en el orden q esta, despues compara el segundo con el tercero y así sucesivamente. son pocas líneas de código y funciona bien.