Сформировать новый массив из четных индексов элементов исходного

uses crt;
const nmax=20;
var a,b:array[1..nmax] of integer;
    i,j,k,tmp,imin,x,l,r:integer;
begin
 clrscr;
  writeln('Ìàññèâ À:');
   for i:=1 to nmax do
    begin
     a[i]:=-15+random(33);
     write(a[i]:4);
    end;
    j:=1;
   for i:=1 to nmax do
    if i mod 2=0 then
     begin
      b[j]:=a[i];
      inc(j);
       if j=11 then
        break;
     end;
    writeln('Ìàññèâ Á:');
     for i:=1 to j-1 do
      write(b[i]:4);
    for k:=1 to j-2 do
     begin
      imin:=k;
       for i:=k+1 to j-1 do
        if b[i]<b[imin] then
         imin:=i;
       tmp:=b[imin];
       b[imin]:=b[k];
       b[k]:=tmp;
     end;
   writeln;
    writeln('Îòñîðò-âàíûé ìàññèâ :');
     for i:=1 to j-1 do
      write(b[i]:4);
   writeln;
    write('X=');
     readln(x);
   l:=1;r:=j-1;
    while l<=r do
     begin
      i:=(l+r) div 2;
       if b[i]=x then
        break
       else
        if b[i]<x then
         l:=i+1
        else
         r:=i-1;
     end;
   if l<=r then
    writeln('Ýëåìåíò ',x,' íàéäåí íà ïîçèöè ',i)
   else
    writeln('Ýëåìåíò ',x,' íå íàéäåí...');
 readkey;
end.