Free Pascalban kellene programot írni. Valaki segítene? Nagyon sűrgős. A többi lent

program maganhangzo;

var

mgh:set of char = ['a','e','i,'o','u'];

begin

readln(SZÓ);

szamlalo:=0;

for i:=1 to length(SZÓ) do if SZÓ[i] in mgh then inc(szamlalo);

writeln(szamlalo);

readln;

end.

nembaj legalább ráállt a kezem egy for ciklusra

mer magamtól nem gyakorlok -.- :D