uses crt,graph;
const  left=#75; right=#77; up=#72;  Down=#80;
var x1,y1,x2,y2,C0L0R:integer;
 GD,GM,X:INTEGER;
k: char;
begin
GD:=Detect;
InitGraph (GD,GM,'..\BGI');
Setfillstyle (1,15);
C0L0R:=1;
SetColor (C0L0R);
repeat
k:=readkey;
if (k=#13) then C0L0R:=C0L0R+1;
if (k=up)or(k=down)or(k=left)or(k=right) then begin
                                         case k of
                                         left : if x1>=1 then x1:=x1-1;
                                         right: if x1<=639 then x1:=x1+1;
                                         up   : if y1>=1 then y1:=y1-1;
                                         down : if y1<=479 then y1:=y1+1;
                                         end;
end;
putpixel(x1,y1,C0L0R);
until (k=#27);
end.