Отсортировать элементы стоящие до последнего нечетного элемента массива по возрастанию методом выбора

Pascal ABC

Const n=10;

var i, j, mn, mnin, k, ind: integer;

a: array[1 ... n] of integer;

begin

writeln ('исходный массив:') ;

randomize;

for i:=1 to n do

begin

a[i]:=random (-n, n) ;

write (a[i],' ') ;

if ((a[i] mod 2) 0) and (a[i]0) then ind:=i;

end;

writeln;

/ / сортировка

for i:=1 to ind-2 do

begin

mn:=a[i]; mnin:=i;

for j:=i to ind-1 do

if a[j]
begin

mn:=a[j];

mnin:=j;

end;

k:=a[i];

a[i]:=a[mnin];

a[mnin]:=k;

end;

writeln ('новый массив:') ;

for i:=1 to n do write (a[i],' ') ;

end.

исходный массив:

-10 - 1 - 5 3 - 7 - 10 1 1 - 6 4

новый массив:

-10 - 10 - 7 - 5 - 1 1 3 1 - 6 4

исходный массив:

-3 0 7 10 1 7 - 3 5 - 2 - 2

новый массив:

-3 - 3 0 1 7 7 10 5 - 2 - 2