program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Controls,
  DateUtils,
  Dialogs;

var
  Week : Array [0..6] of String =
    ('일요일','월요일','화요일','수요일','목요일','금요일','토요일');

  FirstDate, EndDate : TDate;
  Date : TDate;
  iDays : Integer;
  iIndex : Integer;

  iYear : Word;
  iMonth : Word;
  iDay : Word;
  iWeek : Integer;
  strLine : String;
begin
  Writeln('년입력:');
  Readln(iYear);

  Writeln('월입력:');
  Readln(iMonth);

  FirstDate := EncodeDate(iYear, iMonth, 1);
  EndDate := IncMonth(FirstDate);
  EndDate := IncDay(EndDate, -1);

  Writeln('월' + #9 + '화' + #9 + '수' + #9 + '목' + #9 + '금' + #9 + '토' + #9 + '일');
  iDays := DaysBetween(FirstDate, EndDate);
  for iIndex := 0 to iDays do begin
    Date := IncDay(FirstDate, iIndex);
    DecodeDate(Date, iYear, iMonth, iDay);
    iWeek := DayOfTheWeek(Date);

    if (iWeek = 1) then begin
      strLine := IntToStr(iDay);
    end
    else begin
      strLine := strLine + #9 + IntToStr(iDay);
    end;

    if (iWeek = 7)  or (iIndex = iDays - 1) then begin
      WriteLn(strLine);
    end;
  end;

  ReadLn(strLine);
end.


좀 도와 주세요..........

30까지만 나타나고....탭 정렬(#9)도 잘안되네요!!