перестановка строк матрицы

[fratriecz]

дана матрица,переставить строки в порядке увеличения сумм в строке,я написал программу,подскажите как ее переделать чтобы она содержала функцию или процедуру?

  uses crt;
const
  max=10;
 
var
  i,j,n,m,s,t,q: integer;
  a: array[1..max,1..max] of integer;
  b: array[1..max] of integer;
begin
  randomize;
  readln(n,m);
  writeln;
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
      s:=s+a[i,j];
    end;
    b[i]:=s;
 writeln;
  end;
  writeln;
for i:=2 to n do
    for j:=n downto i do
      if b[j-1]>b[j] then
      begin
        for q:=1 to m do
        begin
          t:=a[j-1,q];
          a[j-1,q]:=a[j,q];
          a[j,q]:=t;
        end;
        t:=b[j-1];
        b[j-1]:=b[j];
        b[j]:=t;
      end;
  writeln;
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;

  readln;
end.

[Aranea tela telam]

Можно и так )

uses crt;
  function finc(n,m:integer):integer;
const
  max=10;
var
  i,j,s,t,q: integer;
  a: array[1..max,1..max] of integer;
  b: array[1..max] of integer;
  begin
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
      s:=s+a[i,j];
    end;
    b[i]:=s;
 writeln;
  end;
  writeln;
for i:=2 to n do
    for j:=n downto i do
      if b[j-1]>b[j] then
      begin
        for q:=1 to m do
        begin
          t:=a[j-1,q];
          a[j-1,q]:=a[j,q];
          a[j,q]:=t;
        end;
        t:=b[j-1];
        b[j-1]:=b[j];
        b[j]:=t;
      end;
  writeln;
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end;
var
n,m:integer;
begin
  randomize;
  readln(n,m);
  writeln;
finc(n,m);
  readln;
end.