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

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

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.