Создать третью матрицу, элементами которой будут суммы соответствующих элементов первой и второй матрицы

const
  n = 5;
 
type
  matrix = array[1..n, 1..n] of integer;
 
var
  A, B, C: matrix;
  i, j, min: integer;
 
begin
  randomize;
  min := Maxint;
  for i := 1 to n do 
    for j := 1 to n do 
    begin
      A[i, j] := -n div 2 + random(n);         
      B[i, j] := -n div 2 + random(n);         
      C[i, j] := A[i, j] + B[i, j];
      if c[i, j] < min then
        min := c[i, j];
    end;
  writeln('Массив А: ');
  for i := 1 to n  do
  begin
    for j := 1 to n do 
      write(A[i, j]:6);
    writeln;
  end;
  writeln('Массив B: ');
  for i := 1 to n  do
  begin
    for j := 1 to n do 
      write(b[i, j]:6);
    writeln;
  end;
  writeln('Массив C: ');
  for i := 1 to n  do
  begin
    for j := 1 to n do 
      write(c[i, j]:6);
    writeln;
  end;  
  writeln(min);
end.

type matr = array [1..100, 1..100] of integer;
 
procedure PrintArray(a: matr; n, m: integer; c: char);
var i, j: integer;
begin
  writeln('Матрица ', c, ':');
  for i := 1 to n do begin
    for j := 1 to m do
      write(a[i, j]:4);
    writeln;
  end;
end;
 
var a, b, c: matr;
    n, m, i, j, im, jm: integer;
begin
  randomize;
  im := 1; jm := 1;
  write('n, m = '); readln(n, m);
  for i := 1 to n do 
    for j := 1 to m do begin
      a[i, j] := random(31) - 15;
      b[i, j] := random(31) - 15;
      c[i, j] := a[i, j] + b[i, j];
      if c[im, jm] > c[i, j] then begin
        im := i; jm := j;
      end;
    end;
  PrintArray(a, n, m, 'A');
  PrintArray(b, n, m, 'B');
  PrintArray(c, n, m, 'C');
  writeln('Минимальный элемент C = ', c[im, jm]);
end.