Procedure InsertSort (var Mas:array of integer; Size: integer);
Var
    Temp, J, I : integer;
Begin
    For I: = 1 to Size-1 do
    Begin
        If Mas[I-1] > Mas[I] then
        Begin
            J := I;
            Temp := Mas[I];
            While (J > 0 and temp < Mas[J-1] do
            Begin
                Mas[J] = Mas[J-1];
                Dec[J];
            End
            Mas[J] := Temp
        End
    End
End