function mit Array - trotz gleichen Typs "Inkompatible Typen"

[Shakyamuni]

Sorry für den Doppelpost, allerdings kann ich den obigen nicht mehr editieren.

Also, nun sind die Typen alle gleich (Ich verwende jetzt den IntegerDynArray) und das dividen der Listen funktioniert super. Nun geht es allerdings auf den essentiellen Teil des Mergens zu und da meckert er schon wieder. An den zwei markierten Stellen im Code gibt er mir einen ERangeError, bzw. einen Fehler bei der Bereichsüberprüfung, aus.
Da an den markiertenn Stellen aber nur eine procedure aufgerufen wird, die ein Element löscht, indem es die anderen Elemente über der Liste herunterzieht und die Listenlänge um eins verkleinert, verstehe ich den Fehler nicht so ganz. Bei der Procedure habe ich die Bereiche schon mehrmals überprüft.
Was ich auch überlegt hatte wäre, ob die Listen dann vielleicht schon leer sind und er dennoch ein Element entfernen will - aber das kann ich wegen der while-Schleife drumherum ausschließen.

Ich hoffe, hier könnt mir nochmal helfen^^

Delphi-Quellcode:

function Tsortalgo.Merge(llst, rlst: TIntegerDynArray): TIntegerDynArray;
var
  n: integer;
  lst: TIntegerDynArray;
begin
  SetLength(lst,High(llst)+High(rlst));
  n := 0;
  while (High(llst)>=0) and (High(rlst)>=0) do
    begin
      if llst[0] <= rlst[0]
        then
          begin
            lst[n] := llst[0];
            n := n+1;
            llst := RemoveItem(llst, 0); <--- Fehler
          end
        else
          begin
            lst[n] := rlst[0];
            n := n+1;
            rlst := RemoveItem(rlst, 0); <--- Fehler
          end;
    end;
  while High(llst)>0 do
    begin
      lst[n] := llst[0];
      n := n+1;
      llst := RemoveItem(llst, 0);
    end;
  while High(rlst)>0 do
    begin
      lst[n] := rlst[0];
      n := n+1;
      rlst := RemoveItem(rlst, 0);
    end;
  result := lst;
end;

function Tsortalgo.RemoveItem(lst: TIntegerDynArray; n: integer): TIntegerDynArray;
var
  i: integer;
begin
  for i := n to High(lst)-1 do
    begin
      lst[i] := lst[i+1];
    end;
  SetLength(lst, High(lst)-1);
  result := lst;
end;