[Turbo Pascal] Remplacer des lettres saisies par des points

Salut et bienvenu sur DVP.
D'habitude, on ne donne pas de solution toute faite; mais pour t'encourager à revenir sur ce forum, on peut te donner un petit coup de main avec ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Uses Crt;
VAR
   S:String;
   Rep:Char;
Begin
   Write('Entrer un mot : ');
   S:='';
   Repeat
     Rep:=ReadKey;
     S:=S+Rep;
     If Ord(Rep) In [65..90 , 97..122] Then {plages des lettres}
    {ou encore If Ord(UpCase(Rep)) In [65..90] Then }
       begin Write('*');end;
   Until (Rep=#27) Or (Rep=#13);{Caractère Esc ou Entrée}
   Writeln;
{Pour tester, on utilise ce code ; la variable S stocke le mot ou la chaîne de cararctères entrée : }
   Write('Afficher le mot [O/N] ? ');
   Repeat
     Rep:=ReadKey;
   Until Upcase(Rep) In ['O','N'];
   Writeln;
   Case UpCase(Rep) Of
    'O': begin Write(S);readln;End;
    'N':  Halt(0);
   End;
End.