[im_zorg]

вот код:

Program NewProject1;
var
key,cursorx,cursory,a,ScrW,ScrH:integer;
cursor:image;
domause:boolean;

procedure cls; 
begin 
setColor(255,255,255); 
fillRect(0,0,getWidth,getHeight); 
end;

	procedure mause;
	begin
	cursorx:=5;
	cursory:=5;
	repeat
	key:=getkeyclicked;
	if key=KE_KEY4 then cursorx:=cursorx-11;
	if key=KE_KEY6 then cursorx:=cursorx+11;
	if key=KE_KEY2 then cursory:=cursory-11;
	if key=KE_KEY8 then cursory:=cursory+11;
	if cursorx>scrW then cursorx:=scrw;
	if cursory>scrH then cursory:=scrh;
	if cursorx<0 then cursorx:=0;
	if cursory<0 then cursory:=0;
	drawimage(cursor,cursorx,cursory);
	repaint;
	delay(50);
	cls;
	until false;
	end;
	
procedure data;
begin
repeat
a:=a+1;
drawtext(''+a,0,0);
repaint;
delay(100);
cls;
setcolor(0,0,0);
until a>=50;
domause:=true;
end;

Begin
	cursor:=loadimage('/icon.png');
	ScrW:= GetWidth;
	ScrH:= GetHeight; 	
	data;
	if domause then mause;
End.

сначала идет процедура дата которая прибовляет к "а" по одному, когдп "а" будет равна 50 то идёт процедура mause