program showMeCode;

 var symbol: char;

 begin

   while symbol <> ' ' do begin

     readln(symbol);

     writeln(symbol, ': ', Ord(symbol));

   end;

 end.

Программа во вложении.