Uses ModInsert;

Var a:Matrix;
    i,j,n,m:Integer;

Begin
  Writeln('Please, enter N, M:');
  Readln(n,m);
  Writeln('Enter array:');
  For i:=1 To n Do
    For j:=1 To m Do
      Read(a[i,j]);
  For i := 1 to m do ModInsert(a[i], n);
  Writeln('Result:');
  For i:=1 To n Do
    Begin
      For j:=1 To m Do
        Write(a[i,j],' ');
      Writeln;
    End;
  Readln;
End.

Unit ModInsert;

Interface
const n=100; m=100;
Type
  arrType = Array[1 .. n] Of Integer;
  matrix = Array[1 .. m] Of ArrType;
  Procedure Sort(Var ar: arrType; n: Integer);
Implementation
  Procedure Sort;
  Var i, j, T: Integer;
  Begin
        For i := 1 To n do
        Begin
             T := ar[i];
             j := Pred(i);
             While (T < ar[j]) and (j > 0) Do
             Begin
                  ar[Succ(j)] := ar[j];
                  Dec(j);
             End;
             ar[Succ(j)] := T;
        End;
  End;

End.

While (T < ar[j]) and (j > 0) Do

While (T > ar[j]) and (j > 0) Do