Двухмерный массив. Найти сумму элементов главной диоганали матрицы.

Кто сможет? помощь

program z_array;

uses crt;

var a:array[1 ... 100,1 ... 100] of integer;

m, n, i, j:byte;

sum:integer;

begin

clrscr;

writeln ('Введите количество строк матрицы');

readln (n);

writeln ('Введите количество столбцов матрицы');

readln (m);

writeln ('Введите элементы матрицы');

for i : = 1 to n do

for j : = 1 to m do

begin

write ('a[', i,',', j,'] = ');

readln (a[i, j]);

end;

writeln ('Данная матрица');

writeln;

sum : = 0;

for i : = 1 to n do

begin

for j : = 1 to m do

begin

write (a[i, j]:5);

if (j < i) then

sum : = sum + a[i, j];

end;

writeln;

writeln ('Искомая сумма = ', sum);

readln;

end.