[NetBuilding]

SBJoker благодарю за посильную помощь
Получилось но все равно чето нето.

var i,key,g:integer;
a,b:array [0..100] of integer;
ip:boolean;p:array [0..100] of image;
begin
g:=0;
for i:=0 to 10 do begin
a[i]:=100;
b[i]:=100;
p[i]:=loadImage('/icon.png');
end;

repeat
key:=getKeyClicked;
if keyToAction(key)=GA_FIRE then begin g:=g+1;end
if g>9 then g:=0;

fillrect(0,0,240,320);


for i:=0 to g do begin
drawImage(p[i], a[i], b[i]);
a[i]:=a[i]+1;
if a[i]>240 then a[i]:=100;
end;
repaint;
until b[0]=10;
end.

помогите пожалуйста