Определить возраст каждого человека и определить, кто из них старше

uses crt;
type date=record
          gd:1900..2000;
          ms:1..12;
          end;
var d1,d2:date;
    v1,v2:integer;
begin
clrscr;
writeln('Введите год и месяц рождения 1-го человека');
repeat
write('год 1900..2000 gd1=');
readln(d1.gd);
until (d1.gd>=1900)and(d1.gd<=2000);
repeat
write('месяц 1..12 ms1=');
readln(d1.ms);
until d1.ms in [1..12];
writeln('Введите год и месяц рождения 2-го человека');
repeat
write('год 1900..2000 gd1=');
readln(d2.gd);
until (d2.gd>=1900)and(d2.gd<=2000);
repeat
write('месяц 1..12 ms2=');
readln(d2.ms);
until d2.ms in [1..12];
v1:=2013-d1.gd;
if d1.ms>7 then v1:=v1-1;
writeln('Возраст 1-го человека=',v1);
v2:=2013-d2.gd;
if d2.ms>7 then v2:=v2-1;
writeln('Возраст 2-го человека=',v2);
if v1>v2 then write('1-ый человек старше')
else if v1<v2 then write('2-ый человек старше')
else write('Оба человека одного возраста');
readln
end.