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

Uses system;
var d1: DateTime;
day,mounth,year:integer;
begin
d1 := 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.