Erreur de Compilation!!! Pascal

Bonjour,
j'ai essayé de compilé ce programme que j'ai écrit mais ca marche pas! je ne vois ou je me trompe :(
quelqu'un aurait une idée?

program ex4;
uses wincrt;
var str:string;
i,c,v:integer;
begin
Write('Tapez une chaine: '); Readln(str);

for i:=1 to length (str) do

begin

case upcase(str[i]) of
'A', 'E', 'I', 'O', 'U', 'Y':v:=v+1 ;
else
case upcase(str[i]) of
'A'..'Z':c:=c+1;


end;

Writeln('Nombre de consonnes: ',c);
writeln('Nombre de voyelles: ', v);

end.