Вывод процедуры.Даны кв.матрицы A,B, получить матрицу A*(B-E)+C , E-единичная матрица

  program Pr10;
 
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;
type MyMatrix=array[1..10,1..10] of Real;
var
   I, J, N:Integer;
   A, B, C, E:MyMatrix;
procedure AddMatrix(X,Y:MyMatrix; var Z:MyMatrix);
  begin
    for I:=1 to N do
      for J:=1 to N do
        Z[I,J]:=X[I,J]+Y[I,J];
  end;
 
 
procedure MultMatrix(X, Y:MyMatrix; var Z:MyMatrix);
  begin
  for I:=1 to N do
      for J:=1 to N do
        Z[I,J]:=X[I,J]*Y[I,J];
  end;
 
 
procedure VichMatrix(X, Y:MyMatrix; var Z:MyMatrix);
  begin
    for I:=1 to N do
      for J:=1 to N do
        Z[I,J]:=X[I,J]-Y[I,J];
  end;
 
 
begin
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
  WriteLn('Вычислить матрицу: A*(B-E)+C');
  WriteLn('Введите размерность n: ');
  ReadLn(N);
  WriteLn('Введите матрицу А размерностью ',N,'x',N,': ');
  for I:=1 to N do
    for J:=1 to N do
        ReadLn(A[I,J]);
  WriteLn('Введите матрицу B размерностью ',N,'x',N,': ');
  for I:=1 to N do
    for J:=1 to N do
      begin
        ReadLn(B[I,J]);
      end;
  WriteLn('Матрица А');
  for I:=1 to N do
    begin
      for J:=1 to  N do
        WriteLn(A[I,J]:0:2,'  ');
        WriteLn;
    end;
  WriteLn('Матрица B');
  for I:=1 to N do
    begin
      for J:=1 to  N do
        Write(B[I,J]:0:2,'  ');
        WriteLn;
    end;
  for I:=1 to N do
      for J:=1 to N do
        C[I,J]:=1/(I+J);
  WriteLn('Матрица C');
  for I:=1 to N do
    begin
      for J:=1 to N do
        Write(C[I,J]:0:2,'  ');
        WriteLn;
    end;
  for I:=1 to N do
    for J:=1 to N do
      if I = J then
        E[I,J]:=1
      else
        E[I,J]:=0;
  WriteLn('Матрица E');
  for I:=1 to N do
    begin
      for J:=1 to N do
        Write(E[I,J]:0:2,'  ');
        WriteLn;
    end;
  VichMatrix(B,E,B);
  MultMatrix(A,B,B);
  AddMatrix(B,C,B);
  WriteLn('Преобразованная матрица A*(B-E)+C');
  Write(B);
ReadLn;
end.

for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+a[i,k]*b[k,j];
 end;

 for I:=1 to N do
    begin
      for J:=1 to N do
        Write(B[I,J]:0:2,'  ');
        WriteLn;
    end;