Составить программу определения кодов нажатых клавиш - Free Pascal

Составить программу определения кодов нажатых клавиш.Выход из программы-"пробел"

Листинг программы

uses crt;
var c: Char;
begin
  repeat
    c:=ReadKey; Write(Ord(c):4);
    if c=#0 then Write(Ord(ReadKey):4);
    WriteLn;
  until c=' ';
end.

Объяснение кода листинга программы

Программа использует библиотеку CRT (Console I/O) для взаимодействия с консолью.
Переменная c типа Char используется для хранения кода нажатой клавиши.
Программа входит в цикл repeat, который продолжается до тех пор, пока не будет нажата клавиша пробела.
Внутри цикла, код нажатой клавиши преобразуется в его числовое представление с помощью функции Ord и выводится на консоль.
Если нажатая клавиша является символом новой строки (#0), то перед выводом следующего кода клавиши, программа читает следующую клавишу и преобразует ее код в числовое представление.
После вывода кода клавиши, программа выводит символ новой строки.
Цикл продолжается до тех пор, пока не будет нажата клавиша пробела.