Pascal/Turbo Pascal - Matriz en Pascal, ayuda :(

Hola, estoy intentando aprender pascal, sé algunas cosillas y ahora quiero aprender a crear una matriz en pascal, rellenarla e imprimir los datos, he mirado varios tutoriales y he intentado hacer un programilla y no me compila. Por ejemplo, lo que estoy intentando hacer concretamente es crear una matriz 4*4 en la que el usuario pueda introducir casilla a casilla la palabra que quiera.
por ejemplo

[casa coche perro reloj
sopa movil tele cuadro
lapiz nariz lobo foro
ropa cuerpo jaula amor]

Entonces yo he hecho algo así para recoger los datos por teclado (me falta intentar hacer la impresion x pantalla una vez metidos los datos,pero es que el codigo no me compila). ALguien podria enseñarme como se meten los datos en una matriz??? gracias :)

program matriz;

var
matriz : array [1..4,1..4] of integer;
i,j,contenidoi,contenidoj : integer;
begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
write('Introduzca la palabra que quiera ',i);
readln(contenidoi);
matriz[i] := contenidoi;
write('Introduzca el contenido de la casilla ',j);
readln(contenidoj);
matriz[j] := contenidoj;
end;
end.

Cuando ingresas los datos en un una matriz, tenes que especificar en que columna y fila queres hacer.
Por ejemplo, si queres ingresar en la 1,1 debes poner matriz[1,1]:=contenido...
Pero bueno, manejate con indice que veo que sabes hacerlos...
Con un ciclo adentro de otro...

No entendí demasiado, la cosa es que mi idea no compila y quisiera q me enseñaran una código de matriz 4*4 x ejemplo en la que se pida datos por teclado y luego se muestre el contenido. Gracias

Aca tenes un ejemplo:

PROGRAM ParaJenni;
USES CRT;
CONST
N = 4;
TYPE
TArr = ARRAY[1..N,1..N] OF CHAR;

VAR
matriz : TArr;

PROCEDURE CargarMatriz (VAR m : TArr);
VAR
i,j : INTEGER;
BEGIN
i:=1;
WHILE i<=N DO
BEGIN
CLRSCR;
WRITELN('<< Carga de datos >>');
WRITELN();
j:=1;
WHILE j<=N DO
BEGIN
WRITE('Ingrese un caracter: ');
READLN(m[i,j]);
j:=j+1
END;
i:=i+1;
END;
WRITELN();
WRITE('<< Oprima cualquier tecla para continuar >>');
READKEY
END;

PROCEDURE MostrarMatriz (VAR m : TArr);
VAR
i,j : INTEGER;
BEGIN
CLRSCR;
WRITELN('<< Muestreo de datos >>');
WRITELN();
i:=1;
WHILE i<=N DO
BEGIN
j:=1;
WHILE j<=N DO
BEGIN
WRITE(m[i,j]);
j:=j+1
END;
WRITELN();
i:=i+1;
END;
WRITELN();
WRITE('<< Oprima cualquier tecla para continuar >>');
READKEY
END;

BEGIN
CargarMatriz(matriz);
MostrarMatriz(matriz)
END.

Amigo tu código esta muy piola enseñame ! por favor !

Hola...no soy muy experto en esto pero bue espero q te ayude...
Te voy a correjir los errores....
var
matriz : array [1..4,1..4] of STRIN [50];
i,j : integer;
begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
begin
writeln ('Introduzca la palabra que quiera ');
readln(matriz[i,j]);
end;
end;
begin
for i := 1 to 4 do
begin
for := 1 to 4 do
writeln (matriz[i,j]);
end;
end;
repeat until keypressed;
end.

Espero que te halla servido.......
P.D: si vas a realizar una matriz con palabras, tenes de utilizar STRING [cant. de caract], porque el INTEGER y el REAL son para numeros.....

me gusto mucho por que yo mismo lo puce a corer por que tenia mucho errores y yo lo soluciones.