Найти максимальную сумму элементов в двух соседних столбцах матрицы

const
  n=2;
  m=20;
var
  a: array[1..n,1..m] of integer;
  i,j,s,max,k: integer;
begin
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  max:=0;
  for i:=1 to n do
    for j:=1 to n do
      max:=max+a[i,j];
  for j:=2 to m-1 do
  begin
    s:=0;
    for i:=1 to n do
      s:=s+a[i,j]+a[i,j+1];
    if s>max then
    begin
      max:=s;
      k:=j;
    end;
  end;
  writeln('Максимальная сумма = ',s);
  writeln('Столбцы: ',k,', ',k+1);
end.

const
  n = 20;
  m = 2;
 
var
  a: array[1..n, 1..m] of integer;
  i, j, s, max, k: integer;
 
begin
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(99) + 1;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  max := 0;
  k := 1;
  for i := 1 to m do
    for j := 1 to m do
      max := max + a[i, j];
  for i := 2 to n - 1 do
  begin
    s := 0;
    for j := 1 to m do
      s := s + a[i, j] + a[i + 1, j];
    if s > max then
    begin
      max := s;
      k := i;
    end;
  end;
  writeln('Максимальная сумма = ', max);
  writeln('Строки: ', k, ', ', k + 1);
end.

writeln('Максимальная сумма = ', max);

writeln('Максимальная сумма = ', s);