crt的keypressed/readkey几个函数看看，其他的基本上什么都用不着……

uses crt;

var c:char;
begin
  while not keypressed do write('.');
  c := readkey;
  if c = #0 then write('0 ', ord(readkey));
  else write(ord(c));
end.

这个代码什么意思= =……而且还有编译错误= =

看看我的教你使用crt的帖子吧