po wydrukowaniu poniższa procedura -

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;

Wynikiem jest (na przykład): 1- 1- 2010

Moje pytanie brzmi, jak zapobiec odstępowi jednego znaku przed każdą wartością Date. (dzień miesiąc rok). Oczywiście używam procedury Data z zapisem w dniu przetrzymywania / miesiąc / rok.

Z góry dziękuję.