Sort two-dimensional massive(по возрастанию)

Sort massive

uses crt;
var A:array[1..10,1..10] of integer; C:array[1..10] of integer;
cou_p11,cou1,cou2,cou_p22,k1,k2,varib1,ind1,max:integer;
procedure SorStr (var cou_p1,cou_p2,ind_p1,varib_p1,max_p:integer; B:array [1..10] of integer):integer;
Begin
for cou_p1:=1 to k2 do
 begin
 B[cou_p1]:= A[cou1,cou_p1];
 end;
for cou_p1:=k1 downto 1 do
 begin
  max_p:=B[cou_p1];
  ind_p1:=cou_p1;
 for cou_p2:=1 to cou_p1-1 do
  begin
   if  max_p<B[cou_p2] then
    begin
     max_p:=B[cou_p2];
     ind_p1:=cou_p2;
    end;
  end;
  varib_p1:=B[cou_p1];
  B[cou_p1]:=max_p;
  B[ind_p1]:=varib_p1;
  end;
for cou_p1:=1 to k2 do
 begin
 A[cou1,cou_p1]:=B[cou_p1];
 end;
end;
procedure vblvod_mas;
begin
for cou1:=1 to k1 do
  begin
  for cou2:=1 to k2 do
  begin
   write(A[cou1,cou2],' ');
  end;
  writeln;
end;
writeln;
end;
begin
read(k1,k2);
for cou1:=1 to k1 do
  begin
  for cou2:=1 to k2 do
  begin
   A[cou1,cou2]:=random(10)+10;
  end;
end;
vblvod_mas;
for cou1:=1 to k1 do
begin
SorStr(cou_p11,cou_p22,ind1,varib1,max,C);
end;
vblvod_mas;
end.