Динамически массив как параметр ф-ии

[SNUPY]

Наверно я туплю, но как можно манепулировать длинной динамического массива из подпрограммы ну допустим пишу так:
Procedure DeleteInMas(var Mas:array of Double);
begin
...
Setlength(Mas, Length(Mas)-1);
...
end;
К сожалению ругается. На данный момент вижу только один вариант: объявить свой тип динамических массивов. Заранее спасибо

[Alter]

Вам надо сделать тип, и уже с ним работать, подругому недастся.

...
type TDub = array of double;
...
procedure DeleteInMas(var Mas:TDub);
begin
...
setlength(Mas, Length(Mas)-1);
...
end;

Цикл к примеру:

procedure DeleteInMas(var Mas:TDub);
var i :Integer;
begin
...
 For i:=Low(Mas) To High(Mas) Do
 ............................................
...
end;

[SNUPY]

Спасибо. В принципе, так и видел решение