[Pascal ABC.NET] Разработать модуль для нахождения суммы элементов целочисленной матрицы, расположенных на побочной диагонали

[Evgeny20]

Среда разработки: PascalABC.NET

Unit matr;
Interface
type mas= array[1..100,1..100] of integer;
Function mass(var a:mas): integer;
Implementation
Function mass(var a:mas): integer;
var i,n,k: integer;
min: integer;
begin
min:=a[1,4];
for i:=1 to n do 
for k:=1 to n do
begin
s:=0;
if ((a[i,k])and (i<k)) then s:=s+a[i,k]
...

Подскажите пожалуйста алгоритм...

[Вадим Мошев]

Пусть A - матрица.

sum:=0;

for i:=1 to N do begin
	s:=s + A[i, N-i+1];
end;