Setting the Deletion Mark Programmatically

I'm trying to set the Deletion Mark, but it does not save!

Here is my code:

Selection = Documents.MoneyReceipt.Select();
While Selection.Next() Do
Selection.GetObject().DeletionMark = True;
Selection.GetObject().Write();
EndDo;

Please help!

Try this
Selection = Documents.MoneyReceipt.Select();
While Selection.Next() Do
Object = Selection.GetObject()
Object.DeletionMark = True;
Object.Write();
EndDo;

Thank you, Alexey!
But what is the difference? It looks like I'm doing the same, but 1 line shorter?

Selection.GetObject().DeletionMark = True;  /you get the object but it's temporary and next string used another vesion of this object.
Use Gerasimov's code as is. In visual basic and another languages are same rules for programming.

Alexey Gerasimov and Cocos, thank you very much!