Exercice Pascale Generateur D'adresse Email

Le But Du programme
Générer des adresses Email

1. Voila l'utilisateur Entre Son Nom
2. Puis son prénom
3. Puis pascale Génère une adresse Email Sous la forme [Vous devez être inscrit et connecté pour voir ce lien]
4. Puis il généré Un mots de passe de 6lettre
5. la première : La dernière lettre du prénom
6. la deuxième : la dernière lettre du nom
7. la troisième : la première lettre du prénom
8. la quatrième : la première lettre du prénom
9. la cinquième : le successeur de la deuxième lettre du nom (ex si A est la deuxième lettre B son successeur)
10. le sixième: le successeur de la dernière lettre du prénom (ex si A est la deuxième
lettre B son successeur)
A vos postes Prés Top
la correction après 5 tentatives des élèves

Code:

program Generateur_demail;
uses wincrt;
var N,P,mp :string;
x,y :Integer;

begin
writeln('donner votre prénom');
readln(P);
writeln('donner votre nom');
readln(N);
writeln(N,'.',P,'@Email.fr');
x := length(N);
y := length(P);
mp:=concat(N[x],P[y],N[1],P[1]);
writeln(mp);
end.

Pour le successeur le code est

Code:

Succ

?