Диагонали параллельные побочной

[Dualuk]

Здравствуйте. Необходимо найти суммы диагоналей параллельные побочной.
Я реализовал для квадратной матрицы. Но вся проблема в том, что нужно для прямоугольной матрицы...

const n=4;m=5;
Var A:array[1..n,1..m] of integer=((1,1,3,5,0),
                                   (0,2,1,0,5),
                                   (0,3,1,0,0),
                                   (1,2,1,3,0));
    B:array[1..n,1..m] of integer;
    i,j,summ:integer;
Begin
    writeln('Суммы диагоналей выше побочной диагонали:');
  For j:=1 to n-1 do
  Begin
     summ := 0;
     For i:=1 to n-j do
        summ := summ + a[i,n-j-i+1];
     writeln(summ,' ');
  end;
  writeln; writeln;
  writeln('Суммы диагоналей ниже побочной диагонали:');
  For j:=1 to n do
  Begin
     summ := 0;
     For i:=j to n do
        summ := summ + a[i,n-i+j];
     writeln(summ,' ');
  end;
end.

Прикрепил полное задание...

[Aleksandr H.]

Код не соответствует заданию. Не?

[evg_m]

считаем сумму диагонали только одной ячейки a[х, y] матрицы MxN

mm:=max(m, n);
  
  s:=0;
  for j:=  0-mm to mm do begin
         if x+j<1 then continue // левее
    else if x+j>m then continue // правее
    else if y+j<1 then continue // выше
    else if y+j>n then continue // ниже
    else s:=s +a[x+j, y+j]; // ну наконец-то
  end;
  b[x,y]:=s;

[Dualuk]

Спасибо)

[Dualuk]

evg_m, Ваш код не работает. К сожалению...
Вернее не правильно вычиляет.

[evg_m]

Вернее не правильно вычиляет.

соввершено верно, он для диагоналей параллельных главной ( x+j, y+j)
а вам нужны немного другие...