Стандартная процедура SetLength внутри процедуры не работает

[Sёker]

Не могу понять, почему в моей процедуре Cut_Array не срабатывает стандартная процедура SetLength? Можно ли это исправить? Прошу помощи у сведущих и благодарю за ответы.

type TBArray = array of Byte;
...
procedure Cut_Array(Arr:TBArray; Cuted:Word);
var
Len:Word;
NewLen:Word;
begin
Len:=Length(Arr);
NewLen:=Len-Cuted;
Move(Arr[2],Arr[12],5);
SetLength(Arr,NewLen);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,Cuted,Len:Integer;
M:TBArray;
s:String;
begin
Len:=20;
Cuted:=3;
Memo1.Clear;
Memo2.Clear;
SetLength(M,Len);
for i:=0 to Len-1 do
  begin
  M[i]:=i;
  s:=IntToStr(M[i]);
  Memo1.Lines.Add(s);
  end;
Cut_Array(M,Cuted);
//SetLength(M,Len-Cuted);
for i:=0 to Length(M)-1 do
  begin
  s:=IntToStr(M[i]);
  Memo2.Lines.Add(s);
  end;
M:=Nil;
end;
...

Спешу признать, что сама процедура Cut_Array не имеет необходимости. Процедура написана, чтобы показать, что SetLength, вызванная внутри любой процедуры не срабатывает. Хотя та же "Move" работает.

[Скандербег]

Утверждение легкомысленное, однако.
Динамические массивы в таких случаях нужно передавать по ссылке, а не по значению.

procedure Cut_Array(var Arr:TBArray; Cuted:Word);

[Sёker]

Сообщение от Скандербег

Утверждение легкомысленное, однако.
Динамические массивы в таких случаях нужно передавать по ссылке, а не по значению.

procedure Cut_Array(var Arr:TBArray; Cuted:Word);

Благодарю за помощь и серьёзность!