Пожалуйста помогите с паскалем!

Известны год, номер месяца и день рождения человека, а также год, номер месяца и день сегодняшнего дня. Определите возраст человека (число полных лет). Гарантируется, что человек родился раньше сегодняшнего дня.

Требуется вывести одно целое число — возраст человека.

Примеры:

входные данные....................................... выходные данные
2 1 1920
18 9 2013
..........................................................................................93
31 12 2001
1 1 2033
........................................................................................31

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var (dr,mr,gr):=ReadInteger3(Введите день, номер месяца и год рождения->);
  var (ds,ms,gs):=ReadInteger3(Введите какой день, номер месяца и год на данный момент->);
  var kol:=gs-gr;
  if ((ms  Println(Количество лет->,kol);
end.

Пример(1):
Введите день, номер месяца и год рождения-> 2 1 1920
Введите какой день, номер месяца и год на данный момент-> 18 9 2013
Количество лет-> 93 


Пример(2):
Введите день, номер месяца и год рождения-> 31 12 2001
Введите какой день, номер месяца и год на данный момент-> 1 1 2033
Количество лет-> 31 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.