Procedure BubleSort (var Mas:array of integer; Size: integer);
Var
    Temp, J, I : integer;
Begin
    For I := 0 to Size - 1 do
    Begin
        For J := 0 to Size - 1 - I do
        Begin
            If Mas[J] > Mas[J + 1] then
            Begin
                Temp := Mas[J + 1];
                Mas[J + 1] := Mas[J];
                Mas[J] := Temp;
            End;
        End;
    End;
End