[24.5] fix split list to include the leftovers (#2006)

<!-- Thank you for submitting a Pull Request. If you're new to
contributing to BCApps please read our pull request guideline below
* https://github.com/microsoft/BCApps/Contributing.md
-->
#### Summary <!-- Provide a general summary of your changes -->

port from #2001

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes
[AB#548441](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/548441)

src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al

@@ -236,6 +236,7 @@ codeunit 1928 "Media Cleanup Impl."
         FilterText := FilterText.TrimEnd('|');
     end;
 
+    // 322, 100 will result in [[1, 100], [101, 200], [201, 300], [301, 322]]
     local procedure SplitListIntoSubLists(var InputList: List of [Guid]; SubListCount: Integer; var SplitList: List of [List of [Guid]])
     var
         Math: Codeunit Math;
@@ -244,7 +245,7 @@ codeunit 1928 "Media Cleanup Impl."
         From: Integer;
         ToInt: Integer;
     begin
-        for ListNumber := 0 to Round(InputList.Count() / SubListCount, 1) - 1 do begin
+        for ListNumber := 0 to Round(InputList.Count() / SubListCount, 1) do begin
             Clear(SubList);
             From := ListNumber * SubListCount + 1;
             ToInt := Math.Min(SubListCount, InputList.Count() - ListNumber * SubListCount);