Написал программу, где необходимо сложить две матрицы и вывести на экран третью просуммированную, но не могу избавиться от ошибки

uses Crt;
const
   strok=10;
   stolb=10;
type
    matr=array[1..strok,1..stolb] of integer;
var
   k,i,j,n,m:integer;
   err:byte;
   c,a,b:matr;
   ch:char;
procedure PrintMatr(Mass:Matr;n,m:integer);
begin
    for i:=1 to n do
       begin
         for j:=1 to m do write (Mass[i,j], ' ');
         writeln;
       end;
end;
begin
repeat
     write('Введите количество строк, не больше ', strok ,'. N= ');
  {$I-}
    readln(N);
  {$I+}
  err:=IOResult;
    write('Введите количество столбцов, не больше', stolb ,'. M= ');
    {$I-}
      readln(M);
    {$I+}
  err:=IOResult;
 for i:=1 to n do
  for j:=1 to m do
  repeat
    write('Введите элемент матрицы',i ,', ',j ,'=');
    {$I-}
      readln(a[i ,j ]);
    {$I+}
    err:=IOResult;
  begin
  writeln ('Summa: ');
  for i:=1 to n do
    for j:=1 to m do
     begin
    c[i,j]:=(b[i,j]+a[i ,j]);
    writeln(c[i,j], ' ');
  end;
end;
  writeln('Просуммированная матрица*: ');
  PrintMatr(c);          <------------------------------- { Error 87: "," expected}
  writeln('Повторить программу? 1-да*/2-*нет');
ch:=readkey;
until (ch <> '1');
end.