Hola amigos, estoy metido en un problema con un array bidimensional de 3x3. Tengo que meter 9 numeros y despues mostrarlos en pantalla de la siguiente manera:

        1 2 3
        4 5 6
        7 8 9

Bueno ya pude introducir los datos pero al imprimirlos me sale asi
1
2
3
4
5
6
7
8
9

Se que puede hacer asi [1][1] [1][2] etc ......... pero me gustaria hacerlo con un mientras (pascal while do) pero no me sale. ¿Alguien me puede ayudar por favor?