Test.pas

uses crt;
var x,y:integer;
key:char;
begin
clrscr;
repeat

////Chỗ này/////

key:=readkey;
case key of
#75 : dec(x);
#77 : inc(x);
end;
until key = #27;
end.