помогите пожалуйста решить задачу!

[Fatality]

Народ, прошу Вас, я просто уже не знаю как ее решить... Это не задача, а жесть какая-то...
Type число=1..31;
Месяц=(янв,фев,.....,дек);
день недели=(вс,пн,....,сб);
var d:число;m:месяц;wd1,wd;день недели;к:0..12;
Считая,что год невисокосный и его 1 января приходится на день недели wd1,определить wd-день недели,на которой приходится день с датой d,m.

[goblinyara]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
     month: array [1..12] of integer = (0,31,28,31,30,31,31,30,31,30,31,30);

var
     d,m,wd,wd1,i,j: integer;
begin
  write('Vvedite den nedeli 1 yanvarya:'); readln(wd1);
  write('Vvedite mesyac:'); readln(m);
  write('Vvedite den:'); readln(d);
  wd:=d + wd1 - 1;
  for i := 1 to m do
    wd:=wd+month[i];
  wd:=wd mod 7;
  case wd of
    0: writeln('Voskresenie');
    1: writeln('Ponedelnik');
    2: writeln('Vtornik');
    3: writeln('Sreda');
    4: writeln('Chetverg');
    5: writeln('Pyatnica');
    6: writeln('Subbota');
  end;
  readln;
end.

[Галенька]

Сообщение от goblinyara

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
     month: array [1..12] of integer = (0,31,28,31,30,31,31,30,31,30,31,30);

var
     d,m,wd,wd1,i,j: integer;
begin
  write('Vvedite den nedeli 1 yanvarya:'); readln(wd1);
  write('Vvedite mesyac:'); readln(m);
  write('Vvedite den:'); readln(d);
  wd:=d + wd1 - 1;
  for i := 1 to m do
    wd:=wd+month[i];
  wd:=wd mod 7;
  case wd of
    0: writeln('Voskresenie');
    1: writeln('Ponedelnik');
    2: writeln('Vtornik');
    3: writeln('Sreda');
    4: writeln('Chetverg');
    5: writeln('Pyatnica');
    6: writeln('Subbota');
  end;
  readln;
end.

А как можно решить ее же только без массивов??

[Serge_Bliznykov]

можно. например, через функцию + case of ...

а чем массив не угодил?!