Pascal/Turbo Pascal - numeron repetidos

program digipars;

 uses

   crt;

  var

    cadena : string[20];

    tecla : char;

    n : integer;

  procedure entranumero;

  var

    cont, r, err : integer;

  begin

      gotoxy(10,2);write('Entre Numero : ');

      gotoxy(25,2);

      n := 1;

     repeat

        tecla := readkey;

        if tecla in[#47..#57] then

        begin

        cadena[n] := tecla;

        cadena[0] := chr(n);

        gotoxy(25,2);write(cadena);

        n := n + 1;

        if n > 20 then

        n := 20;

        end;

        if tecla = #8 then

        begin

           n := n - 1;

           if n < 1 then

           n := 1;

           cadena[n] := ' ';

           cadena[0] := chr(n);

           gotoxy(25,2);write(cadena);

        end;

     until tecla = #13;

     clrscr;

     cont := 0;

     for n := 1 to length(cadena) do

     begin

     val(cadena[n],r,err);

     if r mod 2 = 0 then

     begin

     writeln('Numero Par = ',r);

     cont := cont + 1;

     end;

   end;

     writeln;

     writeln('Los Numeros Pares Son : ',cont);

  end;

  begin

      clrscr;

      entranumero;

      readln;

  end.

program pares;

 uses

   crt;

   var

   erro, i, t, p, nume : integer;

   cad : string;

   begin

      write('Entre Numero : ');

      readln(nume);

      str(nume,cad);

      clrscr;

      for i := 1 to length(cad) do

      begin

      val(cad[i],p,erro);

      if p mod 2 = 0 then

      begin

      writeln(p);

      t := t + 1;

      end;

      end;

      writeln('Los numeros Pares Son : ', t);

       readln;

    end.