Samohlasky

program abc;
uses crt, dos;

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

var a,e:string;
i:byte;

begin
clrscr;
e:='';
write('zadaj text: ');
readln(a);
for i := 1 to length(a) do
        begin
         if a[i] in male_samohlasky then e:=e+a[i]+',';
        end;
if e='' then writeln('Text neobsahuje ziadne samohlasky') else
writeln('Samohlasky v zadanom texte su: ',e);
repeat until keypressed;


end.