Подпрограмма: поиск суммы элементов главной диагонали квадратной матрицы

function suma(c:^integer;d:integer):integer;
  var
    i,e:integer;
  begin
    e:=0;
    for i:=1 to d do
      begin
        e:=e+c^;
        c:=c+(d+1)*(sizeof(integer));
      end;
    suma:=e;
  end;
procedure show(c:^integer;d:integer);
  var
    i,j:integer;
  begin
    for i:=1 to d do
      begin
        for j:=1 to d do
          begin
            write(c^:7);
            c:=c+sizeof(integer);
          end;
        writeln;
      end;
  end;
procedure inp(c:^integer;d:integer);
  var
    i,j:integer;
  begin
    for i:=1 to d do
      for j:=1 to d do
        begin
          write('A[',i,',',j,'}:=');
          readln(c^);
          c:=c+sizeof(integer);
        end;
  end;
var
  a:^integer;
  n:integer;
begin
  repeat
    write('Enter N:=');
    readln(n);
  until n>0;
  GetMem(a,n*n*sizeof(integer));
  inp(a,n);
  writeln('matrix A[',n,',',n,']');
  show(a,n);
  writeln('Summa:=',suma(a,n));
  FreeMem(a);
end.