Pascal/Turbo Pascal - AYUDA PROCESO CONTAR DÍGITOS IMPARES

{Es algo como esto}

  program digitos;

  uses

     crt;

  var

   numero : integer;

   caden  : string[20];

   t : integer;

   si : boolean;

  begin

     clrscr;

     si := true;

     write('    Entre un numero : ');

     readln(numero);

     str(numero,caden);

     for t := 1 to length(caden) do

     if caden[t] in['1','3','5','7','9'] then

     begin

     writeln('  El Numero Entrado [ ',caden,' ] Tiene Digitod Impares');

     si := false;

     break;

     end;

       if si = true then

       writeln('  El Numero Entrado [ ',caden,' ] Es De Digitod Pares');

      writeln;

      writeln('    Pulse Una Tecla');

      readkey;

  end.