Copying & Duplicating Service in Ada (1)