var sir:string;   
 nrv:integer;
 function vocale(sir1:string):integer ; var i,nr:integer; 
 begin   
  nr:=0 ;   
    for i:=1 to length(sir1) do     
    if upcase (sir1[i] in ['A','E','I','U','O'] then inc(nr);  <<<-----Character expression expected ( cum sa rezolv eroarea ?
       vocale:=nr;end; 
  begin writeln('scrie sirul de caractere' ); readln(sir);
 nrv:=(vocale(sir)); 
writeln('nr de vocale este',nrv);
end.