quando eu estou imprimindo este procedimento abaixo -

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;

O resultado é (por exemplo): 1- 1- 2010

Minha pergunta é como evitar o espaçamento de um caractere antes de cada valor de data. (dia mês ano). É claro que estou usando o procedimento Data com registro dentro do dia / mês / ano.

Desde já, obrigado.