faci cu un while
cand gasesti o vocala o inserezi inca o data in text si cresti contorul cu 2 , iar daca este consoana il cresti cu 1
readln(s);
i:=1;
while i<= length(s) do
begin
if s[i] in ['a','e','i','o','u'] then begin
insert(s,s[i],i+1);
i:=i+2;
end
else i:=i+1;
end;
