Ошибки 201/216 при попытке перемножить динамические массивы - Free Pascal - Ответ 13279048

program lab14;
 
 
type
  p = ^integer;
  pp = ^p;
var
  a, b, c : pp;
  m, i    : integer;
  n       : byte;
 
procedure add_memory(var a : pp; m : integer);
var i, j : integer;
  begin
    GetMem(a, m*sizeof(integer));
      for i:=0 to m-1 do
        for j:=0 to m-1 do
          GetMem(a[i], m*sizeof(integer));
  end;
 
procedure random_input(var a: pp; m : integer);
var i, j : integer;
  begin
    randomize;
    for i:=0 to m-1 do
      for j:=0 to m-1 do
        a[i, j]:=random(10);
  end;
 
procedure output_matr(a : pp; m : integer);
var i, j : integer;
  begin
    for i:=0 to m-1 do
      begin
        for j:=0 to m-1 do
          write(a[i, j]:4);
        writeln();
      end;
  end;
 
procedure summ_matr(a, b : pp; var c : pp; m : integer);
var i, j : integer;
  begin
    for i:=0 to m-1 do
      for j:=0 to m-1 do
        c[i, j]:=a[i, j] + b[i, j];
  end;
 
procedure mult_matr(a, b : pp; var c : integer; m : integer);
var i, j, k, s : integer;
  begin
   for i:=0 to m-1 do
     for j:=0 to m-1 do
       begin
         s:=0;
         for k:=0 to m-1 do
           s:=s + a[i, k]*b[k, j];
         c[i, j]:=s;
        end;
  end;
 
procedure clearmemory(a : pp; m : integer);
var i : integer;
  begin
    for i:=0 to m-1 do
      FreeMem(a[i]);
    FreeMem(a);
  end;
 
 
  begin
    write('Введите n = ');
    readln(n);
    writeln();
 
    write('Введите порядок матрицы А = ');
    readln(m);
    writeln();
 
    // выделение памяти для А, B, C
    add_memory(a, m);
    add_memory(b, m);
    add_memory(c, m);
 
    // заполнение А случайными числами
    random_input(a, m);
 
    writeln('Матрица А: ');
    output_matr(a, m);
 
    b:=a; c:=a;
 
    for i:=2 to n do
      begin
        mult_matr(a, c, c, m);
        summ_matr(c, b, b, m);
      end; 
   
 
    // вывод матрицы В
    writeln();
    writeln('Матрица В: ');
    output_matr(b, m);
 
 
    // освобождение памяти
    clearmemory(a, m);
    clearmemory(b, m);
    clearmemory(c, m);
 
    readln();
  end.