Задача, нахождение дня недели по дате Опции

[Biowolf]

Подскажите наилучший вариант решения  задачи.Не могу выбрать наилудший.
Задачи должны быть с удобоворимым интерфейсом.В случае неправельного в вода
данных выдовать ошибку и  возврацать к вводу.
Задача
Нахождение дня недели по дате.

[Darkwolf]

Вот текст правда програмка не учитывает весокосный год, может кто подскажет как улучшить.

Код

uses crt;
var
IsCorrectDate: Boolean;
d,m,y : Integer;
Procedure InputDate (var d,m,y : Integer; var correctly : Boolean);
begin
Write ( 'Vvedite datu ');
ReadLn(d,m,y);
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] =
( ' Ponidelinic' , 'Vtornic  ' , ' Sreda ' ,
' Chetverg ' , ' Piatnica ' , ' Subota' , ' Voskresenie ' );
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
clrscr;
repeat
InputDate (d,m,y, IsCorrectDate);
if IsCorrectDate then
WriteDay (d,m, y )
until not IsCorrectDate
end.