Bonjour,

pourquoi cette partie de mon programme ne marche-t-elle pas ????
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
27
28
29
30
31
32
33
34
35
36
37
program collection;
uses wincrt;
var
 
ch:string;
 
 
function valide(ch:string):boolean;
var
ok:boolean;
i:integer;
begin
i:=2;ok:=true;	
Repeat
	if ord(ch[1]) in[65..91]  then 
        begin
        if   (ch[i] <> 'é')  and (ch[i]<>'è')and (ch[i]<>'à')  then 
           begin 	
	        i:=i+1;
	        ok:=true;
	    end else 
	    begin
	    ok:=false;
end;	      
 
      until (i>length(ch)) or (ok=false);
        valide:=ok;
end;
 
 
begin
Repeat
 
	WriteLn('donner le nom du personnage trouvé dans le paquet num1');
	readln(ch);
until  valide(ch);
end.