pascal readkey

Ответ от Kaiu[гуру]
Функция ReadKey (читать клавишу) ожидает нажатия клавиши на клавиатуре, после чего возвращает симврол (тип CHAR), соответствующий нажатой клавише. При этом символ клавиши на экран не выводится. Используя эту функцию, можно обрабатывать нажатия служебных клавиш, таких как - < F1-F12>,клавиш перемещения курсора и листания текста страницами. При нажатии служебных клавиш ReadKey возвращает 0. Чтобы получить номер служебной клавиши, нужно еще раз вызвать ReadKey.
Ниже приведена программа, которая позволяет определить код нажатой клавиши. Программа завершает работу при нажатии клавиши <esc>.
Program tt;
Uses crt;
Var
ch:char ;
Begin
repeat
ch:=ReadKey;
if ch:=chr(0) then {нажата служебная клавиша}
begin
writeln(‘Служебная кавиша’);
ch:=ReadKey;
end;
writeln(ord(ch));
until ord(ch) = 27; { пока не нажата клавиша <esc> }
End.