Определение кода нажатой клавиши — Pascal(Паскаль)

program key;
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.