Исправьте код программы: квадратные матрицы A, B и C порядка n. Получить матрицу (A+B)*C

[Avirov]

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

program Project704;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
    Tmatr=array[1..10,1..10] of Real;
var
  I,J,N,K:Integer;
  A,B,C:TMatr;
  S:Real;

   procedure MultMatr(X,Y:TMatr);
   var
   J,I:Integer;
   Z:TMatr;
   begin
     for I:=1 to n do
     begin
       for J:=1 to n do
       begin
         Z[I,J]:=X[I,J]+Y[I,J];
         Writeln(Z[I,J]:0:0);
       end;
      end;
   end;

   procedure SumMatr(M,P:Tmatr);
   var
   I,J,K:Integer;
   F:TMatr;
   begin
     for I:=1 to N do
     for J:=1 to N do
     begin
       S:=0;
       for K:=1 to N do
       S:=S+M[I,K]*P[K,J];
       F[I,J]:=S;
       Writeln(F[I,J]:0:2);
     end;
    end;
begin
  Writeln('Porydok matr N:');
  Read(N);
  Writeln('Vvod matr A');
  For I:= 1 to N do
  begin
   For J:=1 to  N do
   begin
   Readln(A[I,J]);
   end;
  end;
  Writeln('Vvod matr B');
  For I:= 1 to N do
  begin
   For J:=1 to  N do
   begin
   ReadLN(B[I,J]);
   end;
  end;
  MultMatr(A,B);
  Readln;
  end.

 begin
  Writeln('Vvod matr C');
  For i:= 1 to N do
  begin
   For j:=1 to  N do
   begin
   ReadLN(C[I,J]);
   end;
   end;
   SumMatr(MultMatr,C);
   Readln;
   end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Avirov]

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

program Project704;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
    Tmatr=array[1..10,1..10] of Real;
var
  I,J,N,K:Integer;
  A,B,C:TMatr;
  S:Real;

   procedure MultMatr(X,Y:TMatr);
   var
   J,I:Integer;
   Z:TMatr;
   begin
     for I:=1 to n do
     begin
       for J:=1 to n do
       begin
         Z[I,J]:=X[I,J]+Y[I,J];
         Writeln(Z[I,J]:0:0);
       end;
      end;
   end;

   procedure SumMatr(M,P:Tmatr);
   var
   I,J,K:Integer;
   F:TMatr;
   begin
     for I:=1 to N do
     for J:=1 to N do
     begin
       S:=0;
       for K:=1 to N do
       S:=S+M[I,K]*P[K,J];
       F[I,J]:=S;
       Writeln(F[I,J]:0:2);
     end;
    end;
begin
  Writeln('Porydok matr N:');
  Read(N);
  Writeln('Vvod matr A');
  For I:= 1 to N do
  begin
   For J:=1 to  N do
   begin
   Readln(A[I,J]);
   end;
  end;
  Writeln('Vvod matr B');
  For I:= 1 to N do
  begin
   For J:=1 to  N do
   begin
   ReadLN(B[I,J]);
   end;
  end;
  MultMatr(A,B);
  Readln;
  end.

 begin
  Writeln('Vvod matr C');
  For i:= 1 to N do
  begin
   For j:=1 to  N do
   begin
   ReadLN(C[I,J]);
   end;
   end;
   SumMatr(MultMatr,B);
   Readln;
   end.

[Serge_Bliznykov]

ваша главная ошибка в том, что Вы матрицы, которые вычисляете, просто выводите на экран и нигде не сохраняете!
В данном случае у Вас ничего так не получится. возвращайте результат вычислений из ваших процедур.
И сделайте отдельно процедуру вывода матрицы.
Да и для ввода процедура не помешает!

[krGorka]

названия процедур перепутаны

procedure MultMatr(X,Y:TMatr);   
   var
   J,I:Integer;
   Z:TMatr;
   begin
     for I:=1 to n do
     begin
       for J:=1 to n do
       begin
         Z[I,J]:=X[I,J]+Y[I,J];
         Writeln(Z[I,J]:0:0);
       end;
      end;
   end;

это суммирование

А это умножение

   procedure SumMatr(M,P:Tmatr);
   var
   I,J,K:Integer;
   F:TMatr;
   begin
     for I:=1 to N do
     for J:=1 to N do
     begin
       S:=0;
       for K:=1 to N do
       S:=S+M[I,K]*P[K,J];
       F[I,J]:=S;
       Writeln(F[I,J]:0:2);
     end;
    end;

[Avirov]

Как будто я не знал что там суммирование и умножение

Мне надо передать значение одной процедуры в другую,вот что я хочу!