Pascal/Turbo Pascal - Triangulo en Pascal

Nesito por favor un triangulo algo asi

1
2 3 2
3 4 5 4 3
4 5 6 7 6 5 4

en lenguaje pascal porfavor, UNO TIENE QUE DIGITAR LA ALTURA (OSEA EL NUMERO DE RENGLONES) (OSEA 4 EN ESTE CASO)

GRACIAS POR SU AYUDA

No parece complicado, vamos a intentarlo.

write('Numero de Renglones?: ');
readln(R);
clrscr;
for Nl := 1 to R do
begin
x := 1;
for n := Nl to (Nl + Nl - 1) do
begin
x := x + 1;
gotoxy(x, Nl); write(n);
end;
for n := (Nl + Nl - 2) downto Nl do
begin
x := x + 1;
gotoxy(x, Nl); write(n);
end;
end;
R es el numero de renglones, Nl es el contador de renglones.
Hay un problema con ese codigo y es cuando el resultado de alguno de los valores es mayor a 9 se muestra mal en la pantalla pero creo que eso es tarea para tí :).

Program triangulo;
uses crt;
var
max : char;
proximo :char;

begin
for max := '1' to '9' do
begin
write ('':20-ord(max)+ord('0'));
for proximo := '1' to max do write (proximo);
for proximo := pred(max) downto '1' do write (proximo);
writeln;
end;
readkey;
end.