Pascal/Turbo Pascal - ayuda con error en fichero

Tengo un problema en este programa de fichero de texto.En el fichero salida.txt tengo una matriz de numeros, y lo que quiero es leerla y que la imprima por pantalla en el programa principal.
El codigo fuente es este:

program leoimagen;
type
tmatriz=array[1..10,1..10] of char;
var
f:text;
v:tmatriz;
i,j:integer;
numero:char;
begin
i:=1;
j:=1;

assign(f,'salida.txt');
reset(f);
while not eof (f) do
begin
while not eoln (f) do
begin
read(f,v[i][j]);//YO creo que me da error este read
j:=j+1;
end;
j:=1;
i:=i+1;
end;
close(f);
for j:=1 to 10 do
writeln('',v[1][j],'');
readln;
END.

Creo que el error es en el read, porque si pongo readln funciona el prgrama pero logicamente solo me imprime por pantalla la primera fila porque lee 1 dato y hace el salto de linea.
Lo que quiero es que la lea entera en una matriz v.
Gracias por la ayuda.

Sin probar (formateé la máquina y no tengo nada instalado) te diría que sí, que el problema es el read.

Verás, no hay nada que le diga al Read que tiene que leer un char. Creo que ahí está el problema.

Quizás te iría mejor leyendo con ReadLn un string, y después recorrer vos ese string asignando los caracteres a la matriz.

var Linea:string;
      y,ind:byte;
  
begin
  while not eof (archivo) do
    begin
    Readln(archivo,Linea);
    for Ind:=1 to length(Linea) do
      Matriz[Ind][y]:=Linea[Ind];
    Inc(y);
    end;
end;

No sé si me explico.

OJO: no digo que el Read no anda, es que no tengo cómo probar y me suena sospechoso ese read.

Saludetes.