如何用帕斯卡制作日历

Question

我被卡在帕斯卡作业上，这告诉我要用帕斯卡制作日历。我已经制作了日历格式，但是我不知道如何使每个月的日历格式看起来都不同。

这是我的代码：

program calender;
var
   days, start, i:integer;
begin
  readln(days, start);
  writeln('Sun Mon Tue Wed Thu Fri Sat');
  for i := 1 to 31 do
  begin
       write(i:4);
  if i mod 7=0 then
     writeln();
  end;
  readln()
end.
‘’’