Массив: Проверить, составляют ли суммы элементов столбцов упорядоченную по возрастанию последовательность

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  m,n,i,j: byte;
  s1,s2: integer;
  f: boolean;
begin
  write('Введите размеры массива m, n: ');
  readln(m,n);
  writeln('Массив:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      write('a[',i,',',j,'] = ');;
      readln(a[i,j]);
    end;
    writeln;
  end;
  writeln;
  
  f:=true;
  s1:=0;
  
  for i:=1 to m do s1:=s1+a[i,1];
  writeln('Сумма элементов 1-го столбца = ',s1);
  for j:=2 to n do
  begin
    s2:=0;
    for i:=1 to m do
      s2:=s2+a[i,j];
    if s2<=s1 then f:=false;
    writeln('Сумма элементов ',i,'-го столбца = ',s2);
    s1:=s2;
  end;
  if f then writeln('Да')
    else writeln('Нет');
end.

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    sm1,sm:integer;
    f:boolean;
begin
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите элементы матрицы, целые числа');
for i:=1to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
sm1:=0;
for i:=1to m do
sm1:=sm1+a[i,1];
j:=2;
f:=true;
while(j<=n)and f do
 begin
  sm:=0;
  for i:=1 to m do
  sm:=sm+a[i,j];
  if sm<=sm1 then f:=false
  else
   begin
    j:=j+1;
    sm1:=sm;
   end;
 end;
if f then write('Суммы столбцов образуют возрастающую последовательность')
else write('Суммы столбцов не образуют возрастающую последовательность');
end.