День недели по дате

[Waickem]

Доброго времени суток.
Начал изучать паскаль по книге Фаронова. Помогите понять принцип действия данного примера и что я сделал не правильно так как результат не выдается. Спс.

Program nr7;
var
IsCorrectDate : Boolean;
d,m,y         : Integer;
Procedure InputDate(var d,m,y : integer;
                    var correctly : boolean);
begin
  correctly := (d>=1) and (d<=31) and (m>=1)
                              and (m<=12) and (y>=1582) and (y<=4903)
end;
{------------------------------}
Procedure WriteDay(d,m,y: integer);
const
Days_of_week : array[0..6] of String [11] =
('Sunday','Monday','Tuesday','Wednesday','Friday','Saturday','');
var
c,w : Integer;
begin
if m < 3 then
  begin
  m:=m+10;
  y:=y-1;
  end
else
m:= m-2;
c:= y div 100;
y := y mod 100;
w:= abs(trunc(2.6*m-0.2)+d+y div 4+y+c div 4-2*c) mod 7;
writeln(Days_of_week[w])
end;
{-------------------------}
begin
 repeat
 InputDate(d,m,y,IsCorrectDate);
 if IsCorrectDate then
    WriteDay(d,m,y)
 until not IsCorrectDate
 end.

[Somebody]

1) А где читаются d, m, y?
2)

('Sunday','Monday','Tuesday','Wednesday','Friday','Saturday','');

Ничего не забыл?

[Waickem]

Добавил

readln(d,m,y);

в тело программы. Вроде день показывает, но почему-то создается бесконечный цикл.

Все, нашел ошибку с днем, спасибо =ъ