Для заданной целочисленной матрицы найти максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы

program f1;
uses
  crt;
const
  Nmax = 50;
var
  a : array[1..Nmax,1..Nmax] of integer;
  i,j,M,k,sum,max_sum, max_sum1 : integer;
 
begin
  clrscr;
  repeat
  write('Размер матрицы М = ');
  readln(M);
  until M in [1..Nmax];
  randomize;
  for i := 1 to M do
    for j := 1 to M do
      a[i,j] := random(50)-25;
  writeln('Исходная матрица : ');
  for i := 1 to M do begin
    for j := 1 to M do
      write(a[i,j]:4);
    writeln;
    end;
  for j := 1 to M-1 do begin
    sum := 0;
    for i := 1 to M-j do
      sum := sum + a[i+j,i];
    if j=1 then max_sum := sum
    else if sum>max_sum then max_sum := sum;
    end;
  for j := 1 to M-1 do begin
    sum := 0;
    for i := 1 to M-j do
      sum := sum + a[i,j+i];
    if j=1 then max_sum1 := sum
    else if sum>max_sum1 then max_sum1 := sum;
    end;
  if max_sum1>max_sum then max_sum := max_sum1;
  writeln('Максимум среди сумм эл-тов диагоналей : ',max_sum);
  readln;
end.

procedure TForm1.Button2Click(Sender: TObject);
begin
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i+j,i];
    if j=1 then max_sum := sum
    else if sum>max_sum then max_sum := sum;
    end;
  for j := 1 to m-1 do begin
    sum := 0;
    for i := 1 to n-j do
      sum := sum + a[i,j+i];
    if j=1 then max_sum1 := sum
    else if sum>max_sum1 then max_sum1 := sum;
    end;
    if max_sum1>max_sum then max_sum := max_sum1;
    label2.caption:=IntToStr(max_sum);
end;