Es sollen ja alle Elemente ab Finish nach Start+ff verschoben werden. Die Schleife müsste um #3 zu konkretisieren demnach so sein galub ich:
Delphi-Quellcode:
for a1:=1 to (High(Arr)-Finish) do
Arr[Start+a1-1]:=Arr[Finish+a1];
SetLength(Arr, Length(Arr)-(Finish-Start+1));