Пусть дана матрица, упорядочьте строки по возрастанию

const
  p = 3;
  t = 4;
 
var
  a: array [1..p, 1..t] of integer;
  i, j, k, tmp: integer;
 
function sum(x: integer): integer;
var
  s: integer;
begin
  s := 0;
  if x > 0 then
    while x > 0 do
    begin
      s := s + x mod 10;
      x := x div 10
    end;
  sum := s
end;
 
begin
  Randomize;
  for i := 1 to p do
  begin
    for j := 1 to t do
    begin
      a[i, j] := Random(100);
      Write(a[i, j]:5)
    end;
    WriteLn
  end;
  for i := 1 to p do
    for j := 1 to t - 1 do
    begin
      for k := j + 1 to t do
        if sum(a[i, j]) > sum(a[i, k]) then
        begin
          tmp := a[i, j];
          a[i, j] := a[i, k];
          a[i, k] := tmp
        end;
    end;
  WriteLn('-----------');
  for i := 1 to p do
  begin
    for j := 1 to t do
      Write(a[i, j]:5);
    WriteLn
  end;
  ReadLn
end.

const
  LIM=50; W=5; p = 3; t = 4;
 
function sum(x: integer): integer;
var
  s: integer;
begin
  s:=0;
  while x > 0 do begin
    s:=s+x mod 10;
    x:=x div 10
  end;
  sum:=s
end;
 
var
  a: array [0..p, 0..t] of integer;
  i, j: integer;
  done: boolean;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to p do begin
    a[i,0]:=0;
    for j:=1 to t do begin
      a[i,j]:=Random(LIM);
      Write(a[i,j]:5);
      a[i,0]:=a[i,0]+sum(a[i,j]);
    end; WriteLn
  end;
  repeat
    done:=true;
    for i:=2 to p do
      if a[i-1,0]>a[i,0] then begin
        a[0]:=a[i-1]; a[i-1]:=a[i]; a[i]:=a[0];
        done:=false
      end;
  until done;
  WriteLn('B=');
  for i:=1 to p do begin
    for j := 1 to t do
      Write(a[i,j]:W);
    WriteLn('|',a[i,0]:W);
  end;
  ReadLn
end.