Если вы используете Turbo Pascal, то единственное, что вы можете сделать, это проверить строку символ за символом.
Или вы можете создать запись:
type
dater = Record
month: byte;
day : byte;
year: integer;
End;
var mydate: dater;
Таким образом, зная формат ( mm.dd.yyyy ), вы можете легко проверить его.
Доступ к значениям легко mydate.month, mydate.day, mydate.year .