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

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.