за Задача в ПаскалеАБС Определить число полных лет на текущий момент по введенной с клавиатуры дате.

Но нужно к нему добавить защиту от ввода некорректных данных, т. е. при вводе данных организовать цикл до тех пор, пока не будут выполнены ограничения, накладываемые на значения аргументов. Сам код задачи я сделала. Подскажите со вторым пунктом Очень и нужно.
var day, month, year, day1, month1, year1 : integer;
begin
writeln('Введите сегодняшние день, номер месяца и год через пробел');
readln(day, month, year);
writeln('Введите дату своего рождения (день, номер месяца и год)');
readln(day1, month1, year1);
if month1 month then writeln(year - year1 - 1)
else if day < day1 then writeln(year - year -1)
else writeln(year - year1);
readln;
end.

виктория1332    3   24.06.2020 15:34    12