26
declare
   V : Vector;
   C : Cursor;
begin
   V.Append (New_Item => E);
   C := V.Last;
   E2 := Element (Position => C);
   Replace_Element (Position => C, By => E3);
   V.Insert (Before => C, New_Item => E4);
   V.Delete (Position => C);
   V.Delete_Last;
end;
Cursor-based Operations