ASCII问题(0分)

汉字的ASCII怎样得到？
比如：中国 的ASCII是多少？

UltraEdit
WinHEX

... ...

自己学个显示ASCII码的程序嘛。
program ascii;
{$apptype console}
var i,n:integer; s:string;
begin
writeln('ascii码显示程序，输入字符将显示其ascii码，按回车结束程序');
repeat
readln(s);
n:=length(s);
if n>0 then for i:=1 to n do write(ord(s),' ');
writeln;
until n=0
end.
输入：中国
得出：214 208 185 250

接受答案了.

读频：
发送引导数据：2 50 52 4F 47 52 41 4D
收到应答：06
发送引导机型数据：02
收到机型数据50 33 31 30 37 F4 00 00 06
发送数据：06 52 00 00 08
收到数据：57 00 00 08 FF FF FF FF FF FF FF FF 06

写频：
发送引导数据：2 50 52 4F 47 52 41 4D
收到应答：06
发送引导机型数据：02
收到机型数据：50 33 31 30 37 F4 00 00 06
送数据：57 0 0 8 FF FF FF FF FF FF FF FF
收 在该协议下怎么用delphi实现pc机与单片机通讯？