Procedure FishCount;
var
  DontCount : TIntegerArray;
  i, j : Integer;
begin
  SetLength(DontCount, Length(GearArray));
  DontCount := GearArray;
  for i := 1 to 5 do
  begin
    for j := 1 to 28 do
    begin
    Writeln('Looking in slot #'+ToStr(j));
    if not(InIntArray(DontCount, GetItemIDAt(i)))then
    begin
      Writeln('ID was not in array, checking case #'+ToStr(i));
      case i of
      1:
      begin
        Sardines := Sardines + R_CountItemID(SardineID);
        SetLength(DontCount, (Length(DontCount) + 1));
        DontCount[Length(DontCount)-1] := SardineID;
      end;
      2:
      begin
        Herring := Herring + R_CountItemID(HerringID);
        SetLength(DontCount, (Length(DontCount) + 1));
        DontCount[Length(DontCount)-1] := HerringID;
      end;
      3:
      begin
        Tuna := Tuna + R_CountItemID(TunaID);
        SetLength(DontCount, (Length(DontCount) + 1));
        DontCount[Length(DontCount)-1] := TunaID;
      end;
      4:
      begin
        Swords := Swords + R_CountItemID(SwordsID);
        SetLength(DontCount, (Length(DontCount) + 1));
        DontCount[Length(DontCount)-1] := SwordsID;
      end;
      5:
      begin
        Lobsters := Lobsters + R_CountItemID(LobstersID);
        SetLength(DontCount, (Length(DontCount) + 1));
        DontCount[Length(DontCount)-1] := LobstersID;
      end;
      end;
    Break;
    end;
    end;
  end;
end;