Перемножение матриц

var
  MatrixA, MatrixB: array [,] of integer;
 
procedure PrintMatrix(Matrix: array [,] of integer);
begin
  for var i := 0 to Length(Matrix, 0) - 1 do
  begin
    for var j := 0 to Length(Matrix, 1) - 1 do
      Write(Matrix[i, j]:4);
    Writeln();
  end;
end;
 
function MultMatrixes(MatrixA, MatrixB: array [,] of integer): array [,] of integer;
begin
  if Length(MatrixA, 1) = Length(MatrixB, 0) then
  begin
    SetLength(Result, Length(MatrixA, 0), Length(MatrixB, 1));
    for var i := 0 to Length(Result, 0) - 1 do
      for var j := 0 to Length(Result, 1) - 1 do
        for var Aj := 0 to Length(MatrixA, 1) - 1 do
          for var Bi := 0 to Length(MatrixB, 0) - 1 do
            Result[i, j] += MatrixA[i, Aj] * MatrixB[Bi, j];
  end
  else
    raise new Exception('Количество столбцов первой матрицы не равно количеству строк второй.');
end;
 
begin
  SetLength(MatrixA, 3, 2);
  SetLength(MatrixB, 2, 2);
  
  for var i := 0 to Length(MatrixA, 0) - 1 do
    for var j := 0 to Length(MatrixA, 1) - 1 do
      MatrixA[i, j] := Random(2);
  
  for var i := 0 to Length(MatrixB, 0) - 1 do
    for var j := 0 to Length(MatrixB, 1) - 1 do
      MatrixB[i, j] := Random(2);
  
  Writeln('MatrixA:');
  PrintMatrix(MatrixA);
  Writeln();
  
  Writeln('MatrixB:');
  PrintMatrix(MatrixB);
  Writeln();
  
  Writeln('MatrixC:');
  PrintMatrix(MultMatrixes(MatrixA, MatrixB));
end.

    for var i := 0 to Length(Result, 0) - 1 do
      for var j := 0 to Length(Result, 1) - 1 do
        for var AjBi := 0 to Length(MatrixA, 1) - 1 do
            Result[i, j] += MatrixA[i, AjBi] * MatrixB[AjBi, j];