Procedure SelectionSort (var Mas:array of integer; Size: integer);
Var
    Temp, J, I, MinIndex, Min : integer;
Begin
    Min := Mas[0];
    MinIndex := 0;
    Temp := 0;
    For I := 0 to Size-1 do
    Begin
        Min := Mas[i];
        MinIndex := I;
        For J := I to Size-1 do
            If Mas[J] < Min then
            Begin
                Temp := Mas[J];
                MinIndex := J
            End;
        Temp := Mas[I];
        Mas[I] := Min;
        Mas[MinIndex] := Temp
    End;
End;