Readkey Опции

[CORS@R]

Видел в какой-то программе написанной на паскале(не знаю на каком именно) после нажатия на клавишу не нужно было нажимать enter, т.е. спрашивают введи а, я ввожу, допустим 5, и, как обычно , хотел нажать enter но программа не захотела ждать от меня нажатия entera и пошла дальше. Вопрос: как это все реализовать?

[volvo]

Uses Crt;
Var Ch: Char;
begin
  Write('Enter your choice: '); Ch := ReadKey;
  Case Ch Of
    '1': Writeln('One...');
    '2': Writeln('Two...'); { Ну и так далее ... }

    Else Writeln('something else');
  End;
end.

[CORS@R]

Угу все понял, thanks