Pascal/Turbo Pascal - Leer matrices de archivos de texto

Como hago para leer una matriz situada en un archivo de texto?

Listo, gracias igual.

En un archivo de texto solamente puede haber texto.
Pero los datos del archivo sí los puedes almacenar en una matriz.

Aquí hay un ejemplo de cómo leer un archivo de texto.

uses Crt;
var Arch : Text;
Cadena : String;
begin
ClrScr;
Assign(Arch,'1.txt');
Reset(Arch);
While not seekeof(Arch) do
begin
ReadLn(Arch,Cadena);
WriteLn(Cadena);
end;
Close(Arch);
ReadKey
end.

Eso esta bien, pero aprovecho la oportunidad para ver como puedo leer datos desde un TXT y guardarlos en una matriz de 4 dimensiones.

si necesitan mas datos el problema es asi.

tengo 5 empleados
5 actividades
4 departamentes
12 meses del año

y cada empleado puede estar varias veces en cualquier depto y cualquier actividad en cualquier momento del año

yo necesitaria poder tener los datos asi.

x ej.
matriz[1,1,2,3]

eso seria depto 1
empleado1
actividad2
marzo

y despues leeria la cantidad de veces que estuvo el empleado en ese depto/actividad.

hice esto pero no funciona

while not eof(g) do
begin
for i:=1 to 5 do
begin
readln(g,m[i,j,k,l]);
for j:=1 to 4 do
begin
readln(g,m[i,j,k,l]);
for k:=1 to 5 do
begin
readln(g,m[i,j,k,l]);
for l:=1 to 12 do
begin
readln(g,m[i,j,k,l]);
writeln('Matriz: ',m[i,j,k,l]);
end;
end;
end;
end;
end;
readkey;
end.


o


while not eof(g) do
begin
for i:=1 to 5 do
for j:=1 to 4 do
for k:=1 to 5 do
for l:=1 to 12 do
readln(g,m[i,j,k,l]);

readkey;
end.