programar deteccion de ultimos digitos pares en vectores

[einer]

muy buenas vengo a pedir ayuda con mi proyecto
les explipco...
mi proyecto trata de identificar los numeros que tengan los pirmeros digitos pares como por ejemplo 243 el 2 y el 4 son los primeros digitos y son pares asi que un contador suma cuantos numeros introducidos tienen esa caracteristica (de los primeros 2 pares) no eh logrado concretarlo mas alla de que detecto por separado los numeros pares de cada numero introducido (por ejemplo si coloco 234 y 647 me sale como resultado *3* por el 2 y luego el 6 y el 4....) pero la idea es que salga 1 por que solo 1 de los 2 digitos lleva los primeros pares...

ayudenme por favor dejare adjunto lo que hice hasta ahora
psdt: es la parte final arriba hay sobre vectores

Código Delphi [-]

//////////////////// en este procedimiento es mi problema///////////////////////////////////


procedure TForm1.Button7Click(Sender: TObject);
var
nro,contador,i,a:integer;
nrox,contadorx,ix,ax:integer;
contadorfinal:integer;
begin

  i:=1;
  contador:=0;
  ix:=1;
  contadorx:=0;
    while i<=N do
      begin
        nro:=v[i];
        while nro>9 do////////////////////
          begin
            nro:=nro div 10;
           end;
          if (nro mod 2)=0 then
          contador:= contador+1;
          i:=i+1;

        end;                          //hasta aqui se detecta  el 1°
   /////////////////////////////////////////////////////////////////////////////

   //desde aqui se detecta el 2° par


   while ix<=N do
      begin
        nrox:=v[i];
        while nrox>99 do////////////////////
          begin
            nrox:=nrox div 10;
           end;
          if (nrox mod 20)<=10 then
          contadorx:= contadorx+1;
          ix:=ix+1;
          contadorfinal:=contador+contadorx;

          contadorfinal:=contadorfinal+1;
        end;

   label4.Caption:=inttostr(contadorfinal);
end;
end.