Проверить корректность введенной даты (день, месяц, год) - Pascal ABC

begin
  var (d,m,y):=ReadInteger3('Введите через пробел день, месяц, год:');
  try
    var dt:=(new System.DateTime(y,m,d)).ToShortDateString;
    Writeln('Принята дата ',dt);
  except
    Writeln('Некорректная дата')
  end
end.


Введите через пробел день, месяц, год: 8 10 2017
Принята дата 08.10.2017

Введите через пробел день, месяц, год: 29 2 2017
Некорректная дата