среднее арифметическое диагоналей матрицы? Опции

[bagbir]

Помогите написать процедуру нахождения среднего арифметического для каждой диагонали квадратной матрицы размерности N*N выше и параллельно главной (гл. диагональ невключая)

[Lapp]

Примерно так:

  for i:=2 to N do begin
    s:=0;
    for j:=i to N do s:=s+a[j-i+1,j];
    WriteLn(i,'  ',s/(N-i+1):6:3);
  end