Pascal/Turbo Pascal - pino

Hola.
Realicé un algoritmo el cual se imprime como un pino. o sea de la forma
1
121
12321
1234321
as{i hsata nueve. El tema es que el algooritmo lo realice, per mi problema es como hago para ordenarlo de esa forma.
Saludos

Matías:
Espero que el algoritmo te sea de utilidad:

{** Algoritmo de Pinos **}
Procedure AlgoritmoDePinos(Numero :Integer);
Var
Indice, Indice2, Signo :Integer;

Begin
{** Recorre desde 1 hasta el valor de "Numero" **}
For Indice := 1 to Numero do
Begin
{** Controla los números que van antes del "Numero" (0) y después del "Numero" (1) **}
For Signo := 0 to 1 do
Begin
{** Recorre desde 1 hasta elvalor de "Numero-1" **}
For Indice2 := 1 to Numero-1 do
Begin
If (Signo=0) then
Write(Indice2)
Else
Write(Numero-Indice2);
End; {For "Indice2"}
If (Signo=0) then Write(Numero);
End; {For "Signo"}
WriteLn;
End; {For "Indice"}
End; {AlgoritmoDePinos}

Cualquier comentario, envíame un e-mail. Saludos ;-)