طلب مساعدة في حل تمرين pascal - عاجل

قد تكون هناك اخطاء في الكتابة (:

var j, m, a : Integer;
Begin
Writeln ('Donner une date sous forme jj mm aa')
Readln (j, m, a);
Case m Of
1, 3, 5, 7, 8, 10, 12 : If j<31
Then j:=j+1
Else IF m=12
Then Begin j:=1;
m:=1;
a:=a+1;
End
Else Begin
j:=1;
m:=m+1;
End;
4, 6, 9 11: IF j<30
Then j:=j+1
Else Begin
j:=1;
m:=m+1;
End;
2:IF a mod 4=0
Then j<29
Then j:j+1
Else Begin
j:=1;
m:=3;
End
Else IF j<28
Then j:=j+1
Else Begin
j:=1;
m:=3;
End;
End;
Writeln ('La date du lendemain est : ',j,'/ ',m,'/',a''');

هل تفهم في الباسكال وتريد مساعدة فقط ؟؟ ام تريد كل شيئ جاهز ؟؟