Даны две матрицы одинаковой размерности. Найдите сумму или разность этих матриц в зависимости от значения п

const
  nmax = 10;
 
type
  matr = array[1..nmax, 1..nmax] of integer;
 
var
  A, B, C: matr;
  n, m: integer;
 
procedure InPut(var A: matr; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      A[i, j] := random(31) - 15;
end;
 
procedure OutPut(A: matr; n, m: integer; s: string);
var
  i, j: integer;
begin
  writeln(s);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(A[i, j]:4);
    writeln;
  end;
  readln;
end;
 
procedure Pr(var C: matr; A, B: matr; n, m: integer; flag: boolean);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      if flag then C[i, j] := A[i, j] + B[i, j]
      else C[i, j] := A[i, j] - B[i, j];
end;
 
begin
  repeat
    write('Количество строк: ');
    readln(n);
  until (n > 0) and (n <= nmax);
  repeat
    write('Количество столбцов: ');
    readln(m);
  until (m > 0) and (m <= nmax);
  InPut(A, n, m);
  OutPut(A, n, m, 'Матрица A');
  InPut(B, n, m);
  OutPut(B, n, m, 'Матрица B');
  Pr(C, A, B, n, m, true);
  OutPut(C, n, m, 'Матрица C');
end.