Pascal/Turbo Pascal - matriz

Como puedo llenar una matriz a partir de un fichero de texto?
esk hago esto pero solo me escribe la ultima columna no se k hago mal,deberia llenarse asi:

begin
ASSIGN(FE,'a:datosp2.txt' );
reset(FE);
while not eof(FE)do
For i:=1 to 3 do
begin
for j:=1 to 3 do
read(FE,num);

matriz[i,j]:=num;
writeln(matriz[i,j]);


end;
writeln
end.

Nadie sabe como va eso?alguien k me pueda ayudar?
Esk es para una practica y son muchas cosas las k tengo k hacer y son mas dificiles k eso,y si esto k es lo mas facil no lo saco,pues lo demas ni me digas....
Bueno pos eso k a ver si alguien me puede echar una manita.

Y FELIZ AÑO A TODOS

Bien te doy una mano, prueba con esto.

program test;
var
archivo : text;
data : array[0..2,0..2] of char;
i,j : byte;
datos : chaR;

begin
assign(archivo,'a:dato.txt');
reset(archivo);
while not eof(archivo) do
for i:=0 to 2 do
for j:=0 to 2 do
begin
read(archivo,datos);
data[i,j]:=datos;
write(data[i,j]);
end;
close(archivo);
readln;
end.

El archivo dato.txt debe contener algo así :

123
456
789

Éxitos en este 2006!!

Ya me va ahora a seguir con la practica....Seguramente preguntare mas dudas xDD.

Gracias compañero y k tengas buen año