Нужно написать программу на паскаль ! нужно сделать треугольник вот такой --121-- -12321- 1234231 и тд

Const n=4;
var i,j:integer;
begin
for i:=1 to n do
 begin
 for j:=1 to n-i do write('-');
 for j:=1 to i do write(j);
 for j:=i-1 downto 1 do write(j);
 for j:=1 to n-i do write('-');
 writeln;
 end;
end.

Результат:
---1---
--121--
-12321-
1234321