Как сложить два массива с разными индексами - Pascal

program lr5;
 
type
  TMatrix = array of array of real;
  stat = array [1..4, 1..4] of real;
 
var
  matrixC: TMatrix;
  matrixD, r: stat;
  m, n: byte;
  x: real;

function GetMatrix(n: byte): stat;
var
  m: stat;
  f: Text;
  s: String;
  row, col: byte;
begin
  row := 0; col := 0;
  Assign(f, 'matrix.txt'); Reset(f);
  while not EOF(f) and (n > 0) do
  begin
    if row = 0 then
    begin ReadLn(f, s); inc(row); end
      else
    begin
      inc(col); Read(f, m[row, col]);
      if col = 4 then
      begin
        ReadLn(f); col := 0; inc(row);
        if row > 4 then
        begin row := 0; dec(n); end;
      end;
    end;
  end;
  Close(f);
  GetMatrix := m;
end;
 
function mMinURC(const c: TMatrix; var m, n: byte): Real;//Мин. элемент над главной диагональю
var
  min: Real;
begin
  min := c[0, 1];
  for var i := 0 to m - 2 do 
  begin
    for var j := i + 1 to n - 1 do 
      if min > c[i, j] then
      begin
        min := c[i, j];
      end;
  end;
  mMinURC := min;
end;
 
function mMinURD(const d: stat; m, n: byte): Real;//Мин. элемент над главной диагональю
var
  min: Real;
begin
  min := d[1, 2];
  for var i := 1 to m do 
  begin
    for var j := 1 to n do 
      if min > d[i, j] then
      begin
        min := d[i, j];
      end;
  end;
  mMinURD := min;
end;
 
procedure mSum(const c: TMatrix; const d: stat; var sum: stat; var m, n: byte);//Сложение матриц
begin
  
  for var i := 1 to m do 
    for var j := 1 to n do
      sum[i, j] := c[i, j] + d[i, j];
end;
 
begin
  
  writeln('Введите кол. строк');
  read(m);
  writeln('Введите кол. столбцов');
  read(n);
  SetLength(matrixC, m);
  for var i: byte := 0 to m - 1 do
  begin
    SetLength(matrixC[i], n);
  end;

  for var i: byte := 0 to m - 1 do
  begin
    for var j: byte := 0 to n - 1 do
    begin
      x := 0;
      write('Значение для элемента[', i, '][', j, '] = ');
      read(x);
      matrixC[i][j] := x;
    end;
  end;
  
  writeln;
  
  writeln('Матрица C =');
  for var i: byte := 0 to m - 1 do
  begin
    for var j: byte := 0 to n - 1 do
    begin
      write('', matrixC[i][j]:12:3);
    end;
    writeln;
  end;
  
  writeln;
  
  matrixD := GetMatrix(4); 
  WriteLn('Матрица D =');
  for var row: byte := 1 to 4 do
  begin
    for var col: byte := 1 to 4 do Write(matrixD[row, col]:12:3);
    WriteLn;
  end;
  
  writeln;
  
  mSum(matrixC, matrixD, r, m, n);
  WriteLn('Min над главной диагональю матрицы C: ', mMinURC(matrixC, m, n):0:3);
  WriteLn('Min над главной диагональю матрицы D: ', mMinURD(matrixD, 1, 4):0:3);
  {
  WriteLn('Результаты сохранены в файл "result.txt"');
  Assign(output, 'result.txt'); Rewrite(output);
  mWrite('C+D =', r, m, n);
  WriteLn('Min над главной диагональю: ', mMinUR(r, m, n):0:WD);
  Close(output);}
end.