Считывание матрицы из текстового файла

var
  b, x: array [1..3] of real; 
  f: text;
  A: array of array of real; 
  n: integer = 3;
  m: integer = 3;
  E, R, S, d, W: real;
label 1;
begin
  assign(f, 'input.txt');
  reset(f);
  for i: integer := 1 to n do
    for j: integer := 1 to m do 
      read(f, A[i, j]);   -   выдает ошибку "Метод Зейделя.pas(23) : Ошибка времени выполнения: Ссылка на объект не указывает на экземпляр объекта."
  close(f); 
  
  b[1] := 2; 
  b[2] := 4; 
  b[3] := 5; 
  n := 3; 
  E := 1E-4; 
  1: 
  R := 0; 
  for i: integer := 1 to n do 
  begin
    s := 0; 
    for j: integer := 1 to n do 
      if i <> j then S := S + A[i, j] * x[j]; 
    W := (b[i] - S) / A[i, i]; 
    d := abs(W - x[i]); 
    if R < d then begin
      R := d; 
      x[i] := W; 
    end 
    else x[i] := W; 
  end; 
  if R > E then goto 1; 
  writeln('Матрица системы:');
  for i: integer := 1 to n do
  begin
    for j: integer := 1 to n do
      write(A[i, j]:3);
    writeln;
  end;
  begin
    writeln;
    writeln('Матрица свободных членов:');
    for i: integer := 1 to n do
      writeln(b[i]:3);
  end;
  writeln;
  writeln('Приближенное решение:');
  for i: integer := 1 to n do 
    writeln('x=', x[i]); 
end.

var
  b, x: array [1..3] of real; 
  f: text;
  n: integer = 3;
  m: integer = 3;
  E, R, S, d, W: real;
label 1;
begin
  assign(f, 'input.txt');
  reset(f);
  var a := new real[n, m]; // <---
  for i: integer := 1 to n do
    for j: integer := 1 to m do 
      read(f, A[i - 1, j - 1]); // индексы в массиве - от 0, так что отнимаем единицу
  close(f);