Traduction au pascal

Bonjour,g fé cette traduction sur pascal et pi jtrouve pas c koi le probleme dans tt ça, alr pouviez vous m'aidez a le résourdre.

program date;
uses wincrt;
var
jour,mois,annee:integer
begin
writeln('donner jour');
readln(jour);
writeln('donner mois');
readln(mois);
writeln('donner année');
readln(année);
case mois of
1:writeln('Janvier');
2:writeln('Février');
3:writeln('Mars');
4:writeln('Avril');
5:writeln('Mai');
6:writeln('Juin');
7:writeln('Juillet');
8:writeln('Août');
9:writeln('Septembre');
10:writeln('Octobre');
11:writeln('Novembre');
12:writeln('Décembre');
elseif mois>12 then
writeln('Impossible, il y a 12 mois dans une année')
end;
end.