x creare il codice che decripta in questo caso è un po' più complesso perche scrivendo una sequenza di cifre non distingui i vari codici ascii ... forse risolveresti utilizzando gli array!

codice:
Program decriptare;
uses crt;
const
     max = 10;
type
    ascii = array[1..max] of integer;
var
   valori: ascii;
   i: integer;
   s: array[1..max] of char;
begin
     ClrScr;
     writeln('Inserisci la sequenza di codici ascii: ');
     for i:=1 to max do
     begin
          read(valori[i]);
          s[i]:=chr(valori[i]);
     end;
     writeln(s);
     repeat until keypressed;
end.
solo che il problema di questo codice è che posso scegliere solo un numero fisso di valori ascii (in questo caso 10) .. prova se ti va bene