Написать программу, возводящую матрицу в степень

procedure WriteSquareMatrix(a : array [,] of BigInteger);
begin
  var size := a.GetLength(0)-1;
  var d := 0;
  for var row := 0 to size do
    for var col := 0 to size do
      if a[row, col].ToString.Length > d then
        d := a[row, col].ToString.Length;
  d += 1;
  for var row := 0 to size do
    begin
      for var col := 0 to size do Write(a[row, col]:d);
      WriteLn;
    end;
end;
 
function MultiplicationSquareMatrix(a, b : array [,] of BigInteger) : array [,] of BigInteger;
begin
  var size := a.GetLength(0)-1;
  SetLength(Result, size+1, size+1);
  for var i := 0 to size do
    for var j := 0 to size do
      begin
        Result[i, j] := 0;
        for var k := 0 to size do
          Result[i, j] += a[i, k] * b[k, j];
      end;
end;
 
function PowerSquareMatrix(a : array [,] of BigInteger; power : Integer) : array [,] of BigInteger;
begin
  var size := a.GetLength(0)-1;
  SetLength(Result, size+1, size+1);
  Result := MultiplicationSquareMatrix(a, a);
  for var p := 3 to power do
    Result := MultiplicationSquareMatrix(Result, a);
end;
 
begin
  var n := 3;
  var m := 3;
  
  var a : array [,] of BigInteger;
  SetLength(a, n, n);
  for var row := 0 to n-1 do
    for var col := 0 to n-1 do
      a[row, col] := row * n + col;
  
  WriteLn('Исходная матрица:'); WriteSquareMatrix(a);
  WriteLn('Матрица возведённая в ' + m + ' степень:'); WriteSquareMatrix(PowerSquareMatrix(a, m));
end.