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

Но нужно к нему добавить защиту от ввода некорректных данных, т. е. при вводе данных организовать цикл до тех пор, пока не будут выполнены ограничения, накладываемые на значения аргументов. Сам код задачи я сделала. Подскажите со вторым пунктом Очень и нужно.
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.

сейфы

скульптуры

колодцы

декоративеые вазоны

подоконники

поддоны

школьные измерительные принадлежности ( линейки и т.д)

мельницы ( в старину)

вазы ( декоративные)

колодки ( для изготовления обуви )

палочки для еды

спицы вязальные

палочки для волос

веретено ( в старину )

прялка ( в старину )

колеса ( в старину )

ведра, кадки ( в старину)

вешалку

винная полка

игральные карты ( тонкая фанера)

кубики ( кости игральные )

доски для шахмат ( шашки , нарды )

скалка

амулеты

ручки для кистей

этюник ( для художника)

детская люлька

бочки винные

Объяснение:сейфы

скульптуры

колодцы

декоративеые вазоны

подоконники

поддоны

школьные измерительные принадлежности ( линейки и т.д)

мельницы ( в старину)

вазы ( декоративные)

колодки ( для изготовления обуви )палочки для еды

спицы вязальные

палочки для волос

веретено ( в старину )

прялка ( в старину )

колеса ( в старину )

ведра, кадки ( в старину)

вешалку

винная полка

игральные карты ( тонкая фанера)

кубики ( кости игральные )

доски для шахмат ( шашки , нарды скалка

амулеты

ручки для кистей

этюник ( для художника)

детская люлька