Дана непустая последовательность слов из строчных русских букв...

procedure Task;
const t1:array[1..8] of char = ('а','е','и','о','у','э','ю','я');
const t2:set of char = ['а','е','ё','и','о','у','э','ю','я'];
var s,t,r:string;
i:integer;
begin
readln(s);
i:=pos('.',s);
delete(s,i,length(s)-i+1);
s:=s+',';
t:=s;
for i:=1 to 8 do {for each char}
  begin
    while pos(',',s)<>0 do
      if pos(t1[i],copy(s,1,pos(',',s)))<>0 then delete(s,1,pos(',',s)) else break;
    if s='' then write(t1[i]);
  end;
s:=t;
for i:=ord('а') to ord('я') do {for each char}
  if not(chr(i) in t2) then 
  begin
    while pos(',',s)<>0 do
      if pos(chr(i),copy(s,1,pos(',',s)))=0 then delete(s,1,pos(',',s)) else break;
    if s='' then write(chr(i));
  end;
end;

procedure Task;
const t1:array[1..6] of char = ('a','e','i','o','u','y');
const t2:set of char = ['a','e','i','o','u','y'];
var s,t,r:string;
i:integer;
begin
readln(s);
i:=pos('.',s);
delete(s,i,length(s)-i+1);
s:=s+',';
t:=s;
for i:=1 to 6 do {for each char}
  begin
    while pos(',',s)<>0 do
      if pos(t1[i],copy(s,1,pos(',',s)))<>0 then delete(s,1,pos(',',s)) else break;
    if s='' then write(t1[i]);
    s:=t;
  end;
write(' ');
for i:=ord('a') to ord('z') do {for each char}
  if not(chr(i) in t2) then
  begin
    while pos(',',s)<>0 do
      if pos(chr(i),copy(s,1,pos(',',s)))=0 then delete(s,1,pos(',',s)) else break;
    if s='' then write(chr(i));
    s:=t;
  end;
end;
 
begin
Task;
readln;
end.