detecting

Общая идея:

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

var c: char;
begin

  writeln(
    'Нажмите клавишу-стрелку для проверки, ',
    ' для выхода из программы нажмите клавишу  q'
  );

  while c <> 'q' do
  begin

    c := readKey();
    if (c = #72) then
      writeln('up');
    if (c = #80) then
      writeln('down');
    if (c = #75) then
      writeln('left');
    if (c = #77) then
      writeln('right')
  end;
  writeln('Programma zavershena');

end.

-- здесь мы: