оформить пузырёк процедурой

[fruktovaya]

program lab_8;
 const n=4; m=3;
  var A:array [1..n,1..m] of integer; C:array [1..n] of integer; B:array [1..m] of integer; y,i,j: integer;
   begin
    randomize;
     writeln ('Matrix');
      for i:=1 to n do
      begin
       for j:=1 to m do
       begin
        A[i,j]:=random(50)-random(20);
         write (A[i,j]:4);
      end; writeln;
       end; writeln;
        for j:=1 to m do
        begin
         B[j]:=A[1,j];
          for i:=2 to n do
          if B[j]<A[i,j] then B[j]:=A[i,j]
        end;
         writeln ('mass max stolbci');
          for j:=1 to m do
          begin
           write (B[j]:4);writeln;
          end;
        for j:=1 to m-1 do
         for i:=1 to m-1 do
          if B[i]>B[i+1] then
          begin
           y:=B[i];
            B[i]:=B[i+1];
            B[i+1]:=y;
          end;
           writeln ('otsrtirovan B');
            for j:=1 to m do
            begin
             write (B[j]:4);writeln;
            end;

              for i:=1 to n do
              begin
               C[i]:=A[i,1];
                for j:=2 to m do
                 if A[i,j]<=C[i] then C[i]:=A[i,j]
              end;
          writeln('mas strok');
            for i:=1 to n do
            begin
             write (C[i]:4);
            end;writeln;
             for i:=1 to n-1 do
              for j:=1 to n-1 do
               if C[j]>C[j+1] then
               begin
              y:=C[j];
              C[j]:=C[j+1];
              C[j+1]:=y;
               end;
              writeln ('mass strok otsort');
               for i:=1 to n do
               begin
              write (C[i]:4);
               end;writeln;
          end.

есть вот такая программа. нужно сортировку пузырьком оформить процедурой с параметром. пожалуйста помогите!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.