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

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

Объяснение:

«Насколько реальная обстановка отличается от ожидаемой?», большая часть приемных матерей выражают явное или неявное неудовлетворение своей новой ролью. Негативные эмоции, в основном, связаны с увеличением объема домашней работы, затратой дополнительных сил, энергии и времени, возникновением непредвиденных ситуаций, которые отражаются на налаженном быте семьи.

Многие матери, имевшие собственных детей, расстроены тем, что новый ребенок отличается от их собственных детей, что к нему нужно применять иные дисциплинарные меры, искать новые воздействия. Им многое не нравится в поведении детей, шокируют манеры поведения (разбрасывание вещей, отсутствие навыков гигиены, культуры еды). В тех семьях, где есть собственные дети, обнаруживается, что они не могут относиться к ребенку также как к своему собственному. Они вынуждены делать ему поблажки, жалеть его и потакать капризам. Поняв, что приемный ребенок совсем не такой как собственные дети, родители стараются сделать максимально возможное для блага его и всей семьи. Но пока очень незначительная часть приемных матерей выражает разочарование своей новой ролью.

1.СУКОННЫЙ.

СУКОН-КОРЕНЬ.Н-СУФФИКС.ЫЙ-ОКОНЧАНИЕ.СУКОН-ОСНОВА.

2.Вырастет - Глагол

1)Что делает? - вырастает

2)Н.ф. вырасти

3)Постоянные морф. признаки: несовершенный вид , 1 спр. , непереход.

4)Непостоянные морф. признаки:пр. изъявительное наклонение , 3лицо , ед.ч.

5) Что делает?Вырастает - сказуемое

3.Цепока-подлежащое выр. сущ(что?)

Цепочка что делает?(Горит и переливается-сказуемое выр.глаголом)

Цепочка какая?(серебрянная-определение выр. прил.)

Цепочка для чего?(для часов-дополнение выр.сущ.)

Цепочка на ком?(на нём-дополнение.выр.местоимение)