[PASCAL] Codifica ASCII di una stringa

[gygabyte017]

puoi fare cosi:

var s:string;
    i:integer;
//...
s:='Stringa di esempio';
for i:=1 to Length(s) do
 Write(ord(s[i]),' ');