[Rokuell]

Если известны размеры матрицы
n - кол-во строк = 5
m - кол-во столбцов 6
и дан файл, например, input.txt

Код:

var i,j:integer;
    mass:array [1..5] of array [1..6] of integer;
begin
 AssignFile(input,'input.txt');
 Reset(input);

 for i:=1 to n do
  for j:=1 to m do Read(mass[i][j]);
end;

Если размеры матрицы заранее не известны, то
1. или используешь динамические массивы
2. или создаёшь массив такого размера, чтобы 100% влезло (что проще)

Используя 2 вариант:

Код:

var i,j:integer;
    mass: array [1..50] of array [1..50] of integer;
begin
 AssignFile(input,'input.txt');
 Reset(input);

 i:=1;
 while not EOF(input) do
  begin
   j:=1;
   while not EOLN(input) do
    begin
     Read(mass[i][j]);
     j := j + 1;
    end;
   i := i + 1;
   Readln;
  end;

end;