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

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

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 dofor j := 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]);end; writeln('Данная матрица'); writeln; sum := 0;for i := 1 to n dobeginfor j := 1 to m dobegin write(a[i,j]:5);if (j < i) then sum := sum + a[i,j];end; writeln; writeln('Искомая сумма = ',sum); readln;end.