Can someone run this and fix the problem?

when i run this is says some acess violation.

Code:

program SimpleMine;
{.include SRL\SRL.SCAR}


const
Ore1 = 1130574;
Ore2 = 7966873;
Ore3 = 8947859;
waitT = 6000;


var
mine:boolean;
go:boolean;
loopcount:integer;
Width, Height: Integer;


procedure StartUp;
begin
mine:= false;
writeln('---------------------------------------------------------------------')
writeln('Thank you for using Simple Mine')
writeln('Please enjoy this free script')
writeln('And be sure to use other SS scripts')
writeln('Sean-Scripts')
writeln('---------------------------------------------------------------------')
end;


Procedure Randoms;
Begin
FindNormalRandoms;
 wait(10)
  Wait(13);
FindTalk;
 UseBoxSolver := True
 UseCerterSolver := True
 UseSandwichSolver :=True
 FindMaze;
 wait(10)
 Solvepinball;
 Wait(10)
  begin
   if (FindFight) then
   begin
    RunAwayDirection('N');
     Wait(8500 + random(3500));
    RunBack;
end;
end;
end;


procedure LookForRock;
begin
findcolorspiral(x,y,Ore1,23,28,478,295)
if findcolorspiral(x,y,Ore1,23,28,478,295) = true then
mine:= true;
findcolorspiral(x,y,Ore2,23,28,478,295)
if findcolorspiral(x,y,Ore2,23,28,478,295) = true then
mine:= true;
findcolorspiral(x,y,Ore3,23,28,478,295)
if findcolorspiral(x,y,Ore3,23,28,478,295) = true then
mine:= true;
end;



procedure ImHuman;
begin
if loopcount = 8 then
go:=true
begin
SetMouseMode(False);
GetClientDimensions(Width, Height);
MoveMouseSmooth(Random(Width), Random(Height));
go:= false
end;
end;


Procedure MineS;
begin
if mine = true then
begin
findcolorspiral(x,y,Ore1,23,28,478,295)
if findcolorspiral(x,y,Ore1,23,28,478,295) = true then
begin
Mouse(x,y,0,0,true)
wait(waitT)
end;
findcolorspiral(x,y,Ore2,23,28,478,295)
if findcolorspiral(x,y,Ore2,23,28,478,295) = true then
begin
Mouse(x,y,0,0,true)
wait(waitT)
end;
findcolorspiral(x,y,Ore3,23,28,478,295)
if findcolorspiral(x,y,Ore3,23,28,478,295) = true then
begin
Mouse (x,y,0,0,true)
wait(waitT)
end;
end;
end;



Begin
loopcount:=0
StartUp;
wait(100)
repeat
Loopcount:= Loopcount + 1
Randoms;
LookForRock;
ImHuman;
MineS;
until(false)
end.

 

can you please post where it says it? it should say in line 200 for example.. if not... sorry, i dont know.. might be a bug with scar? what version are u using?