program klocekkolorek ;
uses graph,crt;
var ster,tryb,j,kolor, i:integer;
klawisz:char;

begin
ster:=detect;
initgraph(ster,tryb,'c:\tp\bgi\');

repeat
klawisz:=readkey;
if klawisz='x' then kolor:=kolor+1;
if klawisz='z' then kolor:=kolor-1;
setfillstyle(1,kolor);

bar(0,0,50,50);
if klawisz='6' then
begin
if i<33 then
	begin
	i:=i+1;
	setfillstyle(1,15);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);
delay(4);
	setfillstyle(1,0);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);

	setfillstyle(1,kolor);
	bar(310+i*10,230+j*10,320+i*10,240+j*10)
	end;
end;

if klawisz='4' then
begin
if i>-32 then
	begin
	i:=i-1;

	setfillstyle(1,15);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);
delay(4);
	setfillstyle(1,0);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);
setfillstyle(1,kolor);
	bar(310+i*10,230+j*10,320+i*10,240+j*10)
end;
end;

if klawisz='2' then
begin
if j<25 then
	begin

j:=j+1;
	setfillstyle(1,15);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);
delay(4);
	setfillstyle(1,0);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);
setfillstyle(1,kolor);
	bar(310+i*10,230+j*10,320+i*10,240+j*10)

end;
end;

if klawisz='8' then
begin
if j>-24 then
	begin

j:=j-1;
	setfillstyle(1,15);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);
delay(4);
	setfillstyle(1,0);
	bar(310+i*10,230+j*10,320+i*10,240+j*10);
setfillstyle(1,kolor);
	bar(310+i*10,230+j*10,320+i*10,240+j*10)
end;
end;

until klawisz='q';
closegraph;
end.