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