Помогите решить задачу в Paskal:
Составьте программу для решения задачи,которая проверяет,может ли ребёнок посещать детский сад ,т.еего возраст до 6 лет.Посчитайте через сколько лет он станет школьником .

Program Test; Var Vozrast: integer; Bol, Mistake: boolean; Begin Bol := true; Write('Введите возраст ребенка: '); Readln(Vozrast); Writeln(); if (Vozrast > 6) then Writeln('Ребенок не может посещать детский сад') else if (Vozrast <= 0) then begin Writeln('Некорректный ввод данных!'); Mistake := true; end else begin Writeln('Ребенок может посещать детский сад'); Bol := false; end; if (Mistake = false) then begin if (Bol = false) then Writeln('Ребенок станет школьником через ', 7 - Vozrast, ' лет') else Writeln('Ребенок уже в школе'); end; End.