Создать модуль Events и запись TEvent в нем. (см. лекцию)
Определить сопутствующие константы и глобальную логическую переменную Quit c
первоначальным значением false. (см. лекцию)

Там же определить процедуры GetEvent, HandleEvent. (см. лекцию)

 GetEvent получает клавиатурное событие, кодирует его и возвращает 
полученный результат в параметре Event.

 HandleEvent анализирует передаваемое ей событие и устанавливает 
переменную Quit в true, если событие - нажатие клавиши ESC.

Создать процедуру RUN и вызвать ее из программы. (см. лекцию)