verif

Program bac2017ps22jeu;
Uses Wincrt,crt;
Var
   mot,masque:  String;

Function verif (mot:String):  Boolean;
Var
   i:  Integer;
   test:  Boolean;
Begin
   i := 0;
   test := True;
   Repeat
      i := i+1;

      If Not ( mot[i] In ['A'..'Z','a'..'z'])
			 Then test := False;
   Until (test=False)Or(i=Length(mot));
verif :=(test) and (Length (mot) in [5..20]);
End;

 Function masquer (mot:String) :String;
 var i:Integer;
 Begin
for i=2 to Length(mot)-1 Do
mot[i]:='-';
masquer:=mot;
end;


Begin
   Repeat
      Writeln('saisir le mot à deviner:');
      Readln(mot);
   Until (verif(mot));
   Clrscr();
   masque := masquer(mot);
   deviner(mot,masque);
End.