Как создать функцию, которая принимает двумерный массив Extended и возвращает TArray<Extended>?

У меня есть эта функция для решения матрицы 3x4 методом исключения Гаусса. Но я получил эту ошибку при запуске программы.

[Ошибка] Unit1.pas(79): ожидался идентификатор, но найден «МАССИВ».

[Ошибка] Unit1.pas(79): Необъявленный идентификатор: «TArray».

function Solve3x4MatrixByGaussianElimination(A: array of array of Extended): TArray<Extended>;
const
  Rows = 3;
  Cols = 4;
var
  i, j, k: Integer;
  factor: Extended;
  X: array of Extended;
begin
  SetLength(X, Rows);

  for i := 0 to Rows - 2 do
  begin
    for k := i + 1 to Rows - 1 do
    begin
      if Abs(A[i, i]) < Abs(A[k, i]) then
      begin
        for j := 0 to Cols - 1 do
        begin
          factor := A[i, j];
          A[i, j] := A[k, j];
          A[k, j] := factor;
        end;
      end;
    end;

    for k := i + 1 to Rows - 1 do
    begin
      factor := A[k, i] / A[i, i];
      for j := i to Cols - 1 do
        A[k, j] := A[k, j] - factor * A[i, j];
    end;
  end;

  X[Rows - 1] := A[Rows - 1, Cols - 1] / A[Rows - 1, Rows - 1];
  for i := Rows - 2 downto 0 do
  begin
    X[i] := A[i, Cols - 1];
    for j := i + 1 to Rows - 1 do
      X[i] := X[i] - A[i, j] * X[j];
    X[i] := X[i] / A[i, i];
  end;

  Result := X;
end;

Интересно, как это решить. Я искал какое-то решение, например, «Использование», которое мне нужно использовать, но все равно не удалось. Я работаю на Delphi 7.