Good start, updated standards, I can't do your work for you sorry
.
But i've attached a better version which compiles
.
You might want to rep me by clicking the blue tick in the corner of my post 
SCAR Code:
program LvlThreePowerMiner;
{.include srl/srl.scar}
var
x,y: Integer;
const
copper = 856867; //Ore Color.
procedure Minetin;
var
i : integer;
begin
MouseSpeed := 8 - Random (3)
If FindColor(x,y,copper,MSX1,MSY1,MSX2,MSY2) then
Begin
repeat
HoldMouse(x,y,true)
wait(500+Random(200))
ReleaseMouse(x,y,true)
i := 1+1;
Wait(3000+random(1000))
until (i mod 27 = 0);
end;
end;
begin
minetin;
end.