Разработать программу запрашивающую дату рождения пользователя и расчитывающий его возраст

uses system;var d1: DateTime;day,mounth,year:integer;begind1 := DateTime.Now;Writeln('Today:',d1.Day, '.', d1.Month, '.', d1.Year);Writeln('Day:');readln(day);Writeln('Mounth:');readln(mounth);Writeln('Year:');readln(year);d1:=d1.AddDays(-day);d1:=d1.AddMonths(-mounth);d1:=d1.AddYears(-year);writeln(d1.Day,'.',d1.Month,'.',d1.Year);end.