не работает проверка истинности

[strateg66]

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

program Vozzrast;
 
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
y, m, d, yy, mm, dd, god, month, day, vozrast: integer;
var
correctly: boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
  write ('Vvedite daty rogdeniya v formate YYYY MM DD');
  readln (y, m, d);
  writeln ('Vvedite segodnyashnyuyu daty  v formate YYYY MM DD');
  readln (yy, mm, dd);
  begin
  correctly := ((y>=1900) and (y<=2009) and (m>=12) and (m<=12) and (d>=1) and
  (d<=31) and (yy>=1900) and (yy<=2009) and (mm>=12) and (mm<=12) and (dd>=1)
  and (dd<=31));
  if True then
  begin
  god := (yy-y-1)*12;
  mm := mm+12;
  month := mm-m-1;
  dd:=dd+31;
  day:=(dd-d) div 30;
  vozrast:= god+month+day;
  writeln ('Vash vozrast sostavil ', vozrast);
  end;
  if False then
  writeln ('Vvedite vernie dannie ');
  readln;
  end;
  end.

[Consol]

попробуй так написать

{$APPTYPE CONSOLE}
uses
SysUtils;

var
y, m, d, yy, mm, dd, god, month, day, vozrast: integer;
var
correctly: boolean;
begin
{ TODO -oUser -cConsole Main : Insert code here }

write ('Vvedite daty rogdeniya v formate YYYY MM DD');
readln (y, m, d);
writeln ('Vvedite segodnyashnyuyu daty v formate YYYY MM DD');
readln (yy, mm, dd);
begin
correctly := ((y>=1900) and (y<=2009) and (m>=12) and (m<=12) and (d>=1) and
(d<=31) and (yy>=1900) and (yy<=2009) and (mm>=12) and (mm<=12) and (dd>=1)
and (dd<=31));
if correctly then
begin
god := (yy-y-1)*12;
mm := mm+12;
month := mm-m-1;
dd:=dd+31;
day:=(dd-d) div 30;
vozrast:= god+month+day;
writeln ('Vash vozrast sostavil ', vozrast);
end;
if correctly=False then
writeln ('Vvedite vernie dannie ');
readln;
end;
end.

[Vol666]

var
y, m, d, yy, mm, dd, god, month, day, vozrast: integer;
var
correctly: boolean;
begin
{ TODO -oUser -cConsole Main : Insert code here }

write ('Vvedite daty rogdeniya v formate YYYY MM DD');
readln (y, m, d);
writeln ('Vvedite segodnyashnyuyu daty v formate YYYY MM DD');
readln (yy, mm, dd);
begin

if (y>=1900) and (y<=2009) and (m>=12) and (m<=12) and (d>=1) and
(d<=31) and (yy>=1900) and (yy<=2009) and (mm>=12) and (mm<=12) and (dd>=1) and (dd<=31) then
begin
god := (yy-y-1)*12;
mm := mm+12;
month := mm-m-1;
dd:=dd+31;
day:=(dd-d) div 30;
vozrast:= god+month+day;
writeln ('Vash vozrast sostavil ', vozrast);
end
else
writeln ('Vvedite vernie dannie ');
readln;
end;
end.

Вот как то так...

[ISergeyN]

 (m>=12) and (m<=12)

Проще написать

m = 12

и это тоже

(mm>=12) and (mm<=12)

[Consol]

(m>=12) and (m<=12)

что это значит может надо было написать так

(m>=1) and (m<=12)

[ISergeyN]

Может и надо.. Не я ж такой код писал.

[strateg66]

решил задачку сам. Всем спс
решение такое
program Vozzrast;

{$APPTYPE CONSOLE}
uses
SysUtils;

var
y, m, d, yy, mm, dd, god, month, day, vozrast: integer;
var
correct: boolean;
begin
{ TODO -oUser -cConsole Main : Insert code here }

write ('Vvedite daty rogdeniya v formate YYYY MM DD');
readln (y, m, d);
writeln ('Vvedite segodnyashnyuyu daty v formate YYYY MM DD');
readln (yy, mm, dd);
correct := ((y>=1900) and (y<=2009) and (m>=1) and (m<=12) and (d>=1) and (d<=31) and (yy>=1900) and (yy<=2009) and (mm>=1) and (mm<=12) and (dd>=1) and (dd<=31));
if correct then
begin
god := (yy-y-1)*12;
mm := mm+12;
month := mm-m-1;
dd:=dd+31;
day:=(dd-d) div 30;
vozrast:= god+month+day;
writeln ('Vash vozrast sostavil ', vozrast);
end
else
writeln ('Vvedite vernie dannie ');
readln;
end.

[DeKot]

А может такую проверку:

if  ((y>=1900) and (y<=2009) and (m>=12) and (m<=12) and (d>=1) and
  (d<=31) and (yy>=1900) and (yy<=2009) and (mm>=12) and (mm<=12) and (dd>=1)
  and (dd<=31)) then < сообщение "Введена неверная дата"> ; EXIT;