сравнение суммы строк элементов матрицы

[пожрать_бы]

program by;
 
      var
      a: array [1..20, 1..20] of integer;
      i,j, k, s, n ,m: integer;
      begin
      
      writeln (' введите n');
      if n<20 then i:=n
      else i:=20;
 
      writeln (' введите m');
      if m<20 then j:=m
      else j:=20;
 
      writeln ('введите элементы матрицы');
      for i:=1 to n do
      for j:=1 to m do
      readln (a[i,j]);
      writeln;
      for i:=1 to n do
      begin
      for j:=1 to m do
      write (a[i,j],' ');
      writeln;
      end;
      
      for i:=1 to n do
      begin
      s:=0;
      for j:=1 to m do
      s:=s+a[i,j];
      writeln('Сумма в строке ',i,'=',s);
      end;
 
 
      if БЛАБЛАБЛА then
 
      writeln ('строки не упорядочены по возрастанию суммы их элементов')
      else
      writeln ('строки  упорядочены по возрастанию суммы их элементов');
      end.

помогите, пожалуйста, сравнить суммы строк между собой

[Stilet]

Заводи в массиве еще одну ячейку в конце массива. В нее пиши суммы:

      for i:=1 to n do
      for j:=1 to m do begin
        readln (a[i,j]); a[i,последняя]:=a[i,последняя]+a[i,j];
      end;

А после уже циклом по этим a[i,последняя] проходись.