Дан целочисленный массив из 10 элементов вывести на экран все его нечетные элементы предварительно расположив их по возрастанию методом выбора решить

Program PR;varI:byte;Mas:array[1..10] of integer;beginfor I:=1 to 10 do begin write(‘Введите 10 чисел:’); readln(Mas[I]);end;writeln(‘Список четных элементов массива:’);for I:=1 to 10 do if Mas[I] mod 2=0 then writeln(Mas[I]);readln;end.

Думаю, что