Вычислить суммы элементов главной диагонали квадратной матрицы

program sum_dia; const r=10; var a: array[1… r, 1… r] of shortint; n,i,j: byte; s: shortint; begin randomize; n: =random (8)+3; writeln ('Заданная матрица, порядкa ',n,': '); for i: =1 to n do begin for j: =1 to n do begin a[ i, j ]: =random (21) -10; write (a[ i, j ]: 4); end; writeln end; s: =0; for i: =1 to n do s: =s+a[ i, i ]; writeln ('Сумма элементов главной диагонали: ',s); end.