This Runtime error prevents me from running a script for a sufficent amount of time (5HRs) Its a access violation error, and happens in SRL itslsef (mining.scar) can anyone fix it?

SRL: 4.0
SCAR: 3.12

ERROR: [Runtime Error] : Exception: Access violation at address 00728DB9 in module 'scar.exe'. Read of address 0354FF5C in line 131 in script \includes\SRL/SRL/skill/mining.scar

Heres the function error line is pointed out
SCAR Code:
function GasFound(fx, fy : Integer) : Boolean;
var
   Color : array [1..2] of integer;
   CountData : array of Integer;
   i, Gx, Gy, count, n, FindTimes : Integer;
begin
 Color[1] := 8296866;
 Color[2] := 8951705;
 Gx := fx;
 Gy := fy;
 FindTimes := 3;
 for i := 1 to 2 do
 begin
  if (FindColorSpiralTolerance(Gx, Gy, Color[i], fx - 30, fy - 30,
  fx + 30, fy + 30, 20)) then
  begin
    SetArrayLength(CountData, FindTimes);
      while (n < FindTimes) do
      begin
        CountData[n] := CountColorTolerance(Color[i], Gx - 20, Gy - 20, Gx + 20, Gy + 20, 20); //ERROR LINE
        n := n + 1;
        if (n = FindTimes) then Break; // No need to Wait(100) again...
        Wait(100);
      end;
      BubbleSort(CountData);
      Count := iAbs(CountData[Length(CountData)-1] - CountData[0]);
      if (Count > 40) then
      begin
         Result := FindGas(gx, gy);
         if (Result) then
         Writeln('** Found Gas ** Pixel Count Change is [' + inttostr(Count) + ']' );
      end;
      Gx := fx;
      Gy := fy;
  end;
 end;
end;

Thanks.
I didn't post it in the Script makers Thread becuase its to do the SRL Include.