Сортировка выбором

uses crt;
const nmax=100;
var a,b:array [1..nmax]of integer;
    n,i,j,x,buf,k:integer;
Begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
b:=a;
writeln;
for i:=1 to n-1 do
 begin
  x:=i;
  for j:=i+1 to n do
  if b[j]<b[x] then x:=j;
  buf:=b[i];
  b[i]:=b[x];
  b[x]:=buf;
 end;
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(b[i]:4);
writeln;
k:=0;
for i:=1 to n do
if odd(a[i])and(a[i]<>b[i]) then k:=k+1;
write('Переставлено нечетных элементов=',k);
readln
end.

kn:=0;kc:=0;
for i:=1 to n do
if odd(a[i])and(a[i]<>b[i]) then kn:=kn+1
else if (a[i]mod 2=0)and(a[i]<>b[i]) then kc:=kc+1;
writeln('Переставлено нечетных элементов=',kn);
writeln('Переставлено четных элементов=',kc);
readln
end.