Question

VA ROG FRUMOS! E URGENT! Am de indeplinit urmatoarea sarcina: ''elaboreaza o functie ce calculeaza numarul de vocale intr-un sir de caractere''.Am incercat asta,dar se pare ca nu merge.Imi puteti spune unde am gresit?:
Program v1;
var s:string;
n,nr,l:integer;
function vocal(m,k:integer):integer;
begin
k:=0;
for m:=1 to lenght(s) do
if s[m]=a or s[m]=e or s[m]=i or s[m]=o or s[m]=u then k:=k+1;
end;
begin
writeln('Dati siruri de caractere:');
repeat
readln(s);
nr:=vocal(n,l);
write('numarul vocalelor este :',nr);
end.

Answer 1

cred ca iti lipseste returnul functiei care calculeaza numarul de vocale
vocal :=k;