Используйте вызов 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...
