чисел имеющие четные порядковые номера и являющиеся нечетными

[eva-2030]

Добрый вечер. Помогите плиз с такой задачкой.
В массиве из 20 целых чисел. Определить количество чисел имеющие четные порядковые номера и являющиеся нечетными.
вот код проги:

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..20] of integer;
i,k,t:integer;
s:string;
begin
  Randomize;
  for i:=1 to 20 do begin
  a[i]:=random (100);
  Label2.Caption:=Label2.Caption + inttostr(a[i])+' '; 
   end;
   for i:=1 to 10 do begin
   Edit1.Text:=Edit1.Text + inttostr(a[i*2])+' ';
   end;
     s:=Edit1.Text;
   k:=0;
for t:=1 to Length(s) do
if s[t] in ['0'..'9'] then inc(k);
Label4.Caption:='Количество цифр в строке='+IntToStr(k);

end;

end.

Прога выводит только чисела имеющие четные порядковые номера, а вот как сразу и нечетные?

[MoBLer]

Вот

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..20] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to 20 do begin
a[i]:=random(100);
Label1.Caption:=Label1.Caption + inttostr(a[i])+' ';
if (i mod 2=0) and (a[i] mod 2 <>0 ) then inc(k);
end;
label2.Caption:=inttostr(k);
end;

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..20] of integer;
i,k,t:integer;
s:string;
begin
  Randomize;
  for i:=1 to 20 do begin
   a[i]:=random (100);
   if odd(i) and (not odd(a[i])) then begin
     Label2.Caption:=Label2.Caption + inttostr(a[i])+' '; 
     inc(k);
   end;
  end;
  Label4.Caption:='Количество цифр в строке='+IntToStr(k);
end.

Всего-то...