Pascal/Turbo Pascal - Matriz

Hola y gracias de antemano.

Alguien podria explicarme como hago para imprimir una matriz de la sig manera:

((1, 2, 3, 4),
( 5, 6, 7, 8),
( 9, 10, 11, 12),
(13,14,15,16));
No he podido hacerlo

esto es lo que hago:

c:=4;
d:=5;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin

gotoxy (c,d); write (a[i,j],' ');
c:=c + 4;

if (i = 2) and (j = 1) then
begin

d:=d + 1;
end;

if (i = 3) and (j = 1) then
begin

d:=d + 1;
end;
if (i = 4) and (j = 1) then
begin

d:=d + 1;
end;
end;
end;

d:=5;

for i:=1 to 4 do begin
c:=4;

for j:=1 to 4 do begin
gotoxy (c,d);
write (a[i,j],' ');
c:=c + 4;
end;

d:=d + 1;

end;

Gracias roberto por tu ayuda pero sigo teniendo un problema

yo introduzco estos numeros:

1 2 3 4
4 3 2 1
1 2 3 4
4 3 2 1

y cuando lo voy a imprimir aparece esto:

1 2 4 3
4 3 1 2
1 2 4 3
4 3 2 1

en la primeras 3 filas invierte los valores de las ultimas 2 columnas.

Gracias.

No entiendo bien el problema, a mi me parece que quieres implemente imprimir la matriz en forma de columnas y filas.
Suponiendo que i es la fila y j la columna:

for i:=1 to 4 do
begin
for j:=1 to 4 do
write(A[i,j]:3);
writeln;
end;

Caso contrario, invierte el orden de los índices en el write();

El problema esta en que no me imprime ordenados los elementos de la matriz. ni de la forma como lo hace diego ni de la forma como lo hace roberto, y aparecen elementos que no corresponden a lo introducido o que sobreescriben a los que deberian aparecer y la verdad no entiendo por que. Si alguien tiene un programa que haga esto se lo agradeceria para poder guiarme y localizar el error.

Pues si que esta raro, tal vez no inicializas el arreglo o no lo haces bien, yo lo programe tal como te lo propuse e imprime los numeros en el orden que fueron introducidos.