SoloCodigo

Hola a todos, Necesito ayuda porque tengo que hacer un programilla en pascal que por medio de bucles anidados, “mientras” me construya una pirámide de dígitos como la imagen de abajo, de tal manera que el número de líneas de la pirámide está dado por un número introducido por teclado.

                              1
                            010
                          10101
                        0101010
                      101010101
                    01010101010

Necisito que alguien me ayude sobre cual es la condiccion a poner en el while, porque no consigo dar con ello.
Gracias.

PROCEDURE piramide ()
VAR
     Numero:Integer;
BEGIN
     Write('Introduce un Número por teclado:');
     Read(Numero);
     WHILE ( ) DO

END;

En la solucíon que me has dado, como meto los unos y los ceros porque dependen del número que me metan.
si me meten un 1 solo muestro un 1, pero si me meten un 2 tengo que mostrar:
1
010
entonces nunca se lo que tengo que mostrar depende del numero introducido.Como hago????