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

Формулировка задачи:

Помогите пожалуйста найти ошибку в программе для решения простых итераций методом Зейделя. Матрицу в программу необходимо вводить при помощи текстового файла. Матрица 3х3: 6 0 1 -1 4 -1 0 -1 6 вектор свободных членов: 2 4 5

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);

Объяснение кода листинга программы

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

Объявляются переменные: b, x - массивы из 3 элементов типа real; f - текстовый файл; n, m - целочисленные переменные, равные 3; E, R, S, d, W - переменные типа real.
Файл f открывается на чтение с помощью процедуры assign, а затем подготавливается к чтению с помощью процедуры reset.
Создается динамический массив a размером n на m с помощью оператора new.
В цикле двойной вложенности с помощью операторов read считываются элементы матрицы a из файла f.
Закрывается файл f с помощью процедуры close. В результате выполнения данного кода в переменной a будет содержаться считанная матрица.