program lab_6;
const nmax=20;
type mas=array[1..nmax] of integer;
     matrix=array[1..nmax] of mas;
var a:matrix; b:mas; n,m,i,j:integer;
procedure InPut(var A:matrix; n,m:integer);
var i,j:integer;
begin
     writeln ('vvedite elementi');
     For i:=1 to n do
     For j:=1 to m do
     Readln(A[i,j]);
end;

procedure Inser(var A:matrix; n,m:integer);
var  i,j,t,v,w: integer;
begin
i:=1;
 repeat
 i:=i+1;
   for j:= 2 to m do begin
     v := A[1,j];
     w:=A[i,j];
     t := j-1;
     while (v<a[1,t]) and (t>0) do  begin
       A[1,t+1]:=A[1,t];
       A[i,t+1]:=A[i,t];
       t:=t-1;
       end;
     A[1,t+1]:=v;
     A[i,t+1]:=w;
   end;
 until i=n;

 for i:=1 to n do begin
  for j:=1 to m do
   write (a[i,j]:5);
   writeln;
  end;
 end;

begin
writeln('vvedite kolichestvo strok');
read(n);
writeln('vvedite kolichestvo stolbcov');
read(m);
InPut(a,n,m);
Inser(a,n,m);
readln;
end.