Помогите пожалуйста решить инфографику :Составьте программу для решения задачки,которая

Program Test;

Var Vozrast: integer; Bol, Mistake: boolean;

Begin

Bol := true;

Write('Введите возраст малыша: ');
Readln(Vozrast);
Writeln();

if (Vozrast gt; 6) then
Writeln('Ребенок не может посещать ребяческий сад')

else if (Vozrast lt;= 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.