Составьте с помощью множеств программу удваивания в тексте гласных букв — Pascal(Паскаль)

var s:string; i,j:integer;
A:set of char;
 
begin
//A:=['a','о','у','е','я','ю','э','ы','и'];
A:=['a','o','y','e','u','i'];
s:='mama myla ramy';
//readln (s);
writeln(s);
i:=1;
while i<=length(s) do
  begin
    if s[i] in A then
      begin
        s:=s+' ';
        for j:=length(s)+1 downto i+1 do
          s[j]:=s[j-1];
        i:=i+2;
      end
    else i:=i+1;
end;
writeln (s);
readln;
end.

program uliya;
uses crt;
var s:string; i:integer;
A:set of char;
 
begin
clrscr;
A:=['а','о','у','е','я','ю','э','ы','и'];
s:='мама мыла раму';
//readln (s);
writeln(s);
i:=1;
     for i:=length(s) downto 1 do
       if s[i] in A then insert(s[i],s,i);

writeln (s);
end.