Из элементов с нечётными индексами исходного массива получить новый массив и упорядочить его по убыванию

procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим основные параметры таблиц
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
with StringGrid3 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=1;
  scrollbars:=ssHorizontal;
  defaultcolwidth:=30
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b:array of integer;
    n,m,i,j,c:integer;
begin
//проверим ввод размера
val(Edit1.Text,n,c);
if(c<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
randomize;
setlength(a,n);
StringGrid1.ColCount:=n;
for i:=0 to n-1 do
 begin
  a[i]:=random(50);
  StringGrid1.Cells[i,0]:=inttostr(a[i]);
 end;
m:=0;
i:=0;
while i<n do
 begin
  inc(m);
  setlength(b,m);
  b[m-1]:=a[i];
  inc(i,2)
 end;
StringGrid2.ColCount:=m;
StringGrid3.ColCount:=m;
for i:=0 to m-1 do
StringGrid2.Cells[i,0]:=inttostr(b[i]);
for i:=0 to m-2 do
for j:=i+1 to m-1 do
if b[i]<b[j] then
 begin
  c:=b[i];
  b[i]:=b[j];
  b[j]:=c
 end;
for i:=0 to m-1 do
StringGrid3.Cells[i,0]:=inttostr(b[i]);
end;