Erstellen eines Datum-überprüfers

[Mo53]

Hallo,
Ich habe das Fach Programmstrukturen 1 an der Fachhochschule, nun müssen wir ein Programm schreiben das ein Datum überprüft, natürlich auch ob Schaltjahr ist oder nicht.
Jetzt wird bei mir alles korrekt überprüft außer das Schaltjahr, da bleibt der Compiler immer stehen wenn es kein Schaltjahr ist.
Ich habe alles probiert und nichts möchte klappen.
Wäre dankbar über jede Hilfe.


program ueb03;

{$APPTYPE CONSOLE}
{$R+,Q+ X-}

uses
System.SysUtils;


var
Tag: integer;
Monat: integer;
Jahr: integer;





begin

write('Bitte den Tag eingeben ');
readln(Tag);
write('Bitte den Monat eingeben ');
readln(Monat);
write('Bitte das Jahr eingeben ');
readln(Jahr);



if (Tag >= 1) and (Tag <= 31) then
if (Monat >= 1) and (Monat <= 12) then
if (Jahr >= 1) and (Jahr <= 3000)then

begin
if(Jahr mod 4 = 0) and(Jahr mod 100 <> 0) or(Jahr mod 400 = 0)then
if (Tag = 29) then
case Monat of
2: writeln(Tag,' ist zulässig');
end;


begin
if (Tag <= 31) then

case Monat of
1,3,5,7,8,10,12: writeln('Der ',Tag,'. ist gültig.')
end;


begin
if (Tag <= 30) then

case Monat of
4,6,9,11: writeln('Der ',Tag,'. ist gültig')
end



else
writeln(Tag,'.',Monat,'.', Jahr, ' ist unzulässig.');
readln;
end;
end;
end







else
begin
writeln('Jahr ungültig.');
readln;
end

else
begin
writeln('Monat ungültig.');
readln;
end

else
begin
writeln('Tag ungültig.');
readln;
end;





end.