Pascal/Turbo Pascal - como unir dos digitos y luego multiplicar por una cantidad determinada de eros

{Mira a ver  si esto es lo que quieres pero ten en cuenta la longitud del numero 1000,000,000 esto

podría fallarte por es ceso de longitud}

program prueva;

 {$N+}

 uses

    crt;

  const

     mult : array[1..3] of longint = (

     100000,10000000,100000000);

  var

     dato : string[2];

     nume : extended;

    error : integer;

       tc : char;

  procedure entrada;

  var

    limpia : string[2];

    t, h : integer;

  begin

      clrscr;

      t := 1;

      write('   Entre Digitos : ');

      readln(limpia);

      for h := 1 to length(limpia) do

      if limpia[h] in['0'..'9'] then

      begin

      dato[t] := limpia[h];

      dato[0] := chr(t);

      t := t + 1;

      end;

      val(dato,nume,error);

      if error <> 0 then

      begin

         delete(dato,error,1);

         val(dato,nume,error);

      end;

  end;

  begin

      entrada;

      writeln;

 write('  Multiplicar Por [ 1=100.000 ] [ 2=10.000.000 ] [ 3=1000.000.000 ]');

 repeat

     tc := readkey;

 until tc in['1','2','3'];

 writeln;

 writeln('  El Resultado Es : ',nume * mult[ord(tc) - 48]:16:0);

 writeln;

 readln;

 end.