Найти с помощью процедуры матрицу C=A+B

program pr;
 
const
  Csize = 100;
 
type
  arr = array [1..Csize, 1..Csize] of integer;
 
var
  a, b, c: arr;
  n, m, i, j: integer;
 
procedure fill(var x: arr; const c, f: integer);     // процедура ввода
var
  i, j: integer;
begin
  for i := 1 to c do
    for j := 1 to f do
      x[i, j] := random(21);          // заполнение рандомными числами от 0 до 20 (если должен вводить пользователь, то меняем эту строчку на : readln(x[i,j]);
end;
 
procedure show(x: arr; const c, f: integer);     // процедура вывода 
var
  i, j: integer;
begin
  for i := 1 to c do
  begin
    for j := 1 to f do
      write(x[i, j]:3);
    writeln;
  end;
end;
 
begin
  writeln('Введите размеры матрицы A');
  readln(n, m);
  fill(a, n, m);
  show(a, n, m);
  writeln('Введите размеры матрицы B');
  readln(n, m);
  fill(b, n, m);
  show(b, n, m);
  writeln('Массив c:');                // сложение
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      c[i, j] := a[i, j] + b[i, j];
    end;
  end;
  show(c, n, m);
end.