В матрицах А(8,8), В(6,6), С(9,9) найти суммы элементов главных диагоналей

const
  nmax=10;
  
type
  arr=array[1..nmax,1..nmax] of integer;
 
//процедура инициализации массива
procedure init(var a: arr; n: byte);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(9)+1;
end;
 
//процедура вывода массива
procedure outPut(a: arr; n: byte);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
//процедура вывода элементов главной диагонали
//и подсчета и вывода суммы
procedure sum(a: arr; n: byte);
var i: byte;
    s: integer;
begin
  writeln('Элементы главной диагонали:');
  for i:=1 to n do
  begin
    write(a[i,i]:4);
    s:=s+a[i,i];
  end;
  writeln;
  writeln('Сумма элементов главной диагонали = ',s);
  writeln;
end;
 
var
  a,b,c: arr;
  n: integer;
begin
  n:=8;
  init(a,n);
  writeln('Массив A:');
  outPut(a,n);
  sum(a,n);
  n:=6;
  init(b,n);
  writeln('Массив B:');
  outPut(b,n);
  sum(b,n);
  n:=9;
  init(c,n);
  writeln('Массив C:');
  outPut(c,n);
  sum(c,n);
end.