Код клавиши...

[=*=|/|MM0PT@/\=*=]

Здоров всем! Это мое первое сообщение...
Когда-то я видел прогу, написанную на Паскале, которая при нажатии любой клавиши выдавала код этой клавиши. Ну типа: #16, #65 и т.д. При помощи какой команды это всё делается? Очень нужно!
Заранее благодарен!

[Квэнди]

ord(<клавиша);

[Umen]

вот код:

uses crt;
var
   ch: char;
begin
     Clrscr;
     while not keypressed do begin
           ch := readkey;
           if ord(ch) = 0 then
              ch := readkey;
           write(ord(ch), ' ');
           if ord(ch) = 27 then break;
     end;
end.

[=*=|/|MM0PT@/\=*=]

Спасибо большое! Вы меня выручили!