Работа с датами Опции

[nSk]

Можете помочь .
Как написать программу которой вводишь дату ,
и она проверяет её правельность,
тоесть если ей ввел 32 декабря она скажет что такого не бывает или там 30 февраля . формат дату такой ДЕНЬ.Месяц.Год например [ 02.12.2005 ]

[volvo]

nSk, вот программа, которая принимает 3 числа (через пробел, DD MM YYYY) и выдает корректность введенной даты...

const
  days: array[1 .. 12] of byte =
    (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
  D, M, Y: Integer;

begin
  write('DD/MM/YYYY'); readln(D, M, Y);
  if ((Y mod 4) = 0) and
     not (((Y mod 100) = 0) and ((Y mod 400) <> 0)) then inc(days[2]);

  if
    (M >= 1) and (M <= 12) and
    (D >= 1) and (D <= days[ M ])
  then
    writeln('correct') else writeln('not correct');
end.