Pascal. По заданной квадратной матрице построить вектор длиной 2n-1, элементы которого максимумы элементов диагоналей, параллельных главной диагонали

[Olegyshke]

Здравствуйте, мне задали такую задачу "По заданной квадратной матрице построить вектор длиной 2n-1, элементы которого максимумы элементов диагоналей, параллельных главной диагонали". Я не смог сам решить но кажется нашел решенный вариант, НО ПРЕПОД ЗАВАЛИЛ НА ВОПРОСАХ Т.К. Я ТАК И НЕ СМОГ РАЗОБРАТЬ ПРОГРАММУ ПОЖАЛУЙСТА КТО НИ БУДЬ МОЖЕТ ПРОКАМЕНТИРОВАТЬ СТРОКИ В ПРОГРАММЕ.
Один из вопросов препода где матрица делится на диагонали. Заранее спасибо.

const
  n=10;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n*2-1] of integer;
  i,j,max,m,k: integer;
begin
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
    
  m:=0;
  for k:=1-n to n-1 do
  begin
    inc(m);
    max:=-32768;
    for i:=1 to n do
    begin
      for j:=1 to n do
        if (j-i=k)and(a[i,j]>max)then max:=a[i,j];
      b[m]:=max;
    end;
  end;
  
  writeln('Полученный массив максимумов диагоналей:');
  for i:=1 to 2*n-1 do write(b[i],' ');
  readln;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Olegyshke

где матрица делится на диагонали

Сообщение от Olegyshke

if (j-i=k)

условие (j-i=k) как раз и выполняется для элементов матрицы, которые лежат на "диагоналях, параллельных главной диагонали"

[Olegyshke]

а что означает цикл

for k:=1-n to n-1 do