(uses crt;) {biblioteka crt na ogół się przydaje, więc ją wczytuję}
(var klawisz: char;) {ta zmienna będzie zczytywać, jaki klawisz został wciśnięty}

repeat {pętla działająca, dopóki nie będzie spełnione założenie obok 'UNTIL'}

klawisz:=#0; {resetowanie wprowadzonego klawisza}

while keypressed do klawisz:=readkey; {pobieranie wciśniętego klawisza, jeśli wciśnięty}

case klawisz of {sprawdzanie wciśniętego klawisza}
'H':begin {instrukcje do wykonania, gdy wciśnięto strzałkę w górę}end;
'P':begin {instrukcje do wykonania, gdy wciśnięto strzałkę w dół}end;
#13:begin {instrukcje do wykonania, gdy wciśnięto ENTER}end;
end; {end of case;}

until klawisz=#27; {jeśli to klawisz ESCAPE, to zakończ program}
end.