25
declare
V : Vector;
I : Extended_Index;
begin
V.Append (New_Item => E);
I := V.Last_Index;
E2 := V.Element (Index => I);
V.Replace_Element (Index => I, By => E3);
V.Insert (Before => I, New_Item => E4);
V.Delete (Index => I);
V.Delete_Last;
end;
Index-based Operations