когда я распечатаю эту процедуру ниже -

procedure put (Date:Date_Type) is
begin
  Put(Integer'Image(Date.Day)); --'
  Put("-");
  Put(Integer'Image(Date.Month)); --'
  Put("-");
  Put(Integer'Image(Date.Year)); --'
end;

Результат (например): 1-1- 2010

Мой вопрос заключается в том, как предотвратить интервал в один символ перед каждым значением даты. (день месяц год). Конечно, я использую процедуру Date с записью внутри дня / месяца / года.

Заранее спасибо.