[lmikle]

А все-таки, можно ли массив констант?

А то можно сделать как-то так:

Код:

const
  DaysInMonth : Array [1..12] Of Integer = 
    (31,28,31,30,31,30,31,31,30,31,31);
  Months : Array [1..12] Of String = 
    ('янв', 'фев', ...  ); // Ну вы поняли... это только для вывода

function GetDateByNumber(N : Integer)  : String;
var
  I, S : Integer;
begin
  Result := '';
  I := 1;
  S := 0;
  While S + DaysInMonth[i] < N Do
    Begin
      S := S + DaysInMonth[i];
      Inc(I);
      If I > 12 Then Raise Exception.Create('Over the year.');
    End;
  N := 
  Result := IntToStr(N - S) + ' ' + Months[i];
end;