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

const
  nmax=15;  // константой задаем максимальный размер массива
var
  a: array[1..nmax,1..nmax] of integer; // объявляем массив ...
  n,i,j,s: integer;   // ... и числовые переменные
begin
  repeat     // в цикле повторяем:
    write('Введите размер матрицы n (n <= 15): N='); // приглашение на ввод размера массива
    readln(n);  // считываем размер массива
  until n in [1..nmax]; // цикл повторяется до тех пор, пока n не будет в пределах 1..15
  s:=0; // изначально сумме присваиваем значение 0
  writeln('Матрица:');  // вывод на экран слова "Матрица"
  for i:=1 to n do  // с первой по последнюю строку
  begin
    for j:=1 to n do  // с первого до последнего столбца
    begin
      a[i,j]:=random(9)+1;  // элементу массива присваиваем случайное значение от 1 до 9
      write(a[i,j]:4);  // выводим элемент на экран
      if i=j then s:=s+a[i,j]; // если номер строки = номеру столбца (то есть главная диагональ), то прибавляем его значение к сумме
    end;
    writeln; // переход на новую строку для вывода следующей строки массива
  end;
  writeln('S = ',s); // вывод на экран суммы
end.