free pascal readKey() - Считать символ без нажатия клавиши "Ввод" (бер Enter/Энтер)

Используйте вызов readKey() из модуля Crt чтобы получать символы из потока ввода в консоли без ожидания нажатия Энтер от пользователя, например:

uses Crt; //  импортираем модуль Crt

var c: char;
begin

  c := readKey();
  writeln('simvol= ', c);

  writeln('Programma zavershena');

end.

Официальная документация: https://www.freepascal.org/docs-html/rtl...