Построить квадратную матрицу порядка 2n- Pascal(Паскаль)

const n=5;
var i,j,c:integer; a:array[1..2*n,1..2*n] of integer;
begin
c:=1;
for j:=1 to 2*n do
begin
for i:=1 to 2*n do
if i<=n then
a[i,j]:=c
else a[i,j]:=c+2;
if j=n then
inc(c);
end;
for i:=1 to 2*n do
begin
for j:=1 to 2*n do
write(a[i,j]:2);
writeln;
end;
readln;
end.