Числа a, b, c обозначают дату. Проверить корректность этой даты

var a,b,c:integer;
    t:boolean;
begin
clrscr;
writeln('Введите год, месяц, день:');
readln(a,b,c);
t:=(c>0)//год больше 0
and((m in [4,6,9,11])and(d in [1..30]))//если короткие месяцы и день от 1 до 30
or((m in [1,3,5,7,8,10,12])and(d in [1..31])) //если длинные месяцы и день от 1 до 31
or((m=2)and(((y mod 4=0)and(y mod 100<>0))or(y mod 400=0))and(d in [1..29]))
//если февраль високосного года и день от 1 до 29
or(((y mod 4<>0))or(y mod 100=0))and(d in [1..28]);
//если февраль не високосного года и день от 1 до 28
writeln('Это правильная дата?');
write(t);
end.

writeln('Введите год, месяц, день:');
readln(Y,M,D);

var a,b,c:integer;
    t:boolean;
begin
writeln('Введите день, месяц, год:');
readln(a,b,c);
t:=(c>0)//год больше 0
and((b in [4,6,9,11])and(a in [1..30]))//если короткие месяцы и день от 1 до 30
or((b in [1,3,5,7,8,10,12])and(a in [1..31])) //если длинные месяцы и день от 1 до 31
or((b=2)and(((c mod 4=0)and(c mod 100<>0))or(c mod 400=0))and(a in [1..29]))
//если февраль високосного года и день от 1 до 29
or(((c mod 4<>0))or(c mod 100=0))and(a in [1..28]);
//если февраль не високосного года и день от 1 до 28
writeln('Это правильная дата?');
write(t);
end.