Как удалить элемент из массива в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

type
  TMyArr : array of double;
...
 
procedure DeleteMasElem( var A : TMyArr; const Index : integer ); //Index это номер элемента который необходимо удалить
var i, h : integer;
begin
  h := High(A);
  if h = -1 then Exit;
  
  for i := Index to h - 1 do A[i] := A[i + 1];
  SetLength(A, h);
end;