need help with looping

ive made a mining program and it works how it is i just need to know how to make it run continuously untill i tell it to stop any help would be great thanks

Code:

var
x,y,rockcolor,orecolor,waittime,x1,x2,x3,x4,y1,y2,y3,y4,y5,y6,y7: Integer;

begin
rockcolor:=1712440;
orecolor:=2042695;
waittime:=6000;
x1:=574;
x2:=619;
x3:=663;
x4:=702;
y1:=225;
y2:=262;
y3:=298;
y4:=333;
y5:=370;
y6:=407;
y7:=443;
repeat
if (findcolor(x,y,rockcolor,1,1,512,331)) then
movemousesmooth(x,y+20) wait(500) clickmouse(x,y+20,true) wait(waittime);
until (findcolor(x,y,orecolor,688,432,726,459));
if (findcolor(x,y,orecolor,688,432,726,459)) then
movemousesmooth(x2,y1) wait(500) clickmouse(x2,y1,false) movemousesmooth(x2,y1+40) wait(500) clickmouse(x2,y1+40,true);
movemousesmooth(x3,y1) wait(500) clickmouse(x3,y1,false) movemousesmooth(x3,y1+40) wait(500) clickmouse(x3,y1+40,true);
movemousesmooth(x4,y1) wait(500) clickmouse(x4,y1,false) movemousesmooth(x4,y1+40) wait(500) clickmouse(x4,y1+40,true);
movemousesmooth(x1,y2) wait(500) clickmouse(x1,y2,false) movemousesmooth(x1,y2+40) wait(500) clickmouse(x1,y2+40,true);
movemousesmooth(x2,y2) wait(500) clickmouse(x2,y2,false) movemousesmooth(x2,y2+40) wait(500) clickmouse(x2,y2+40,true);
movemousesmooth(x3,y2) wait(500) clickmouse(x3,y2,false) movemousesmooth(x3,y2+40) wait(500) clickmouse(x3,y2+40,true);
movemousesmooth(x4,y2) wait(500) clickmouse(x4,y2,false) movemousesmooth(x4,y2+40) wait(500) clickmouse(x4,y2+40,true);
movemousesmooth(x1,y3) wait(500) clickmouse(x1,y3,false) movemousesmooth(x1,y3+40) wait(500) clickmouse(x1,y3+40,true);
movemousesmooth(x2,y3) wait(500) clickmouse(x2,y3,false) movemousesmooth(x2,y3+40) wait(500) clickmouse(x2,y3+40,true);
movemousesmooth(x3,y3) wait(500) clickmouse(x3,y3,false) movemousesmooth(x3,y3+40) wait(500) clickmouse(x3,y3+40,true);
movemousesmooth(x4,y3) wait(500) clickmouse(x4,y3,false) movemousesmooth(x4,y3+40) wait(500) clickmouse(x4,y3+40,true);
movemousesmooth(x1,y4) wait(500) clickmouse(x1,y4,false) movemousesmooth(x1,y4+40) wait(500) clickmouse(x1,y4+40,true);
movemousesmooth(x2,y4) wait(500) clickmouse(x2,y4,false) movemousesmooth(x2,y4+40) wait(500) clickmouse(x2,y4+40,true);
movemousesmooth(x3,y4) wait(500) clickmouse(x3,y4,false) movemousesmooth(x3,y4+40) wait(500) clickmouse(x3,y4+40,true);
movemousesmooth(x4,y4) wait(500) clickmouse(x4,y4,false) movemousesmooth(x4,y4+40) wait(500) clickmouse(x4,y4+40,true);
movemousesmooth(x1,y5) wait(500) clickmouse(x1,y5,false) movemousesmooth(x1,y5+40) wait(500) clickmouse(x1,y5+40,true);
movemousesmooth(x2,y5) wait(500) clickmouse(x2,y5,false) movemousesmooth(x2,y5+40) wait(500) clickmouse(x2,y5+40,true);
movemousesmooth(x3,y5) wait(500) clickmouse(x3,y5,false) movemousesmooth(x3,y5+40) wait(500) clickmouse(x3,y5+40,true);
movemousesmooth(x4,y5) wait(500) clickmouse(x4,y5,false) movemousesmooth(x4,y5+40) wait(500) clickmouse(x4,y5+40,true);
movemousesmooth(x1,y6) wait(500) clickmouse(x1,y6,false) movemousesmooth(x1,y6+40) wait(500) clickmouse(x1,y6+40,true);
movemousesmooth(x2,y6) wait(500) clickmouse(x2,y6,false) movemousesmooth(x2,y6+40) wait(500) clickmouse(x2,y6+40,true);
movemousesmooth(x3,y6) wait(500) clickmouse(x3,y6,false) movemousesmooth(x3,y6+40) wait(500) clickmouse(x3,y6+40,true);
movemousesmooth(x4,y6) wait(500) clickmouse(x4,y6,false) movemousesmooth(x4,y6+40) wait(500) clickmouse(x4,y6+40,true);
movemousesmooth(x1,y7) wait(500) clickmouse(x1,y7,false) movemousesmooth(x1,y7+20) wait(500) clickmouse(x1,y7+20,true);
movemousesmooth(x2,y7) wait(500) clickmouse(x2,y7,false) movemousesmooth(x2,y7+20) wait(500) clickmouse(x2,y7+20,true);
movemousesmooth(x3,y7) wait(500) clickmouse(x3,y7,false) movemousesmooth(x3,y7+20) wait(500) clickmouse(x3,y7+20,true);
movemousesmooth(x4,y7) wait(500) clickmouse(x4,y7,false) movemousesmooth(x4,y7+20) wait(500) clickmouse(x4,y7+20,true);
end.

 

repeat
until(false)

That loop will run forever.

 

You have a really weird way of writing scripts but like town said just add this RIGHT above your first begin...

begin
repeat

...Then JUST BEFORE end. add...


until(false);

...This will continue forever until you press ctrl alt s.