очень надо!!)

[alexandrovna]

Тема: Строки. Множества.
3.1. Составить программу, удаляющую в строке все, что заключено между фигурными скобками и их самих.
3.2.Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое четное слово

[Poma][a]

program del;
uses crt;
var l,i,n,m:integer;
st:string;
begin
clrscr;
readln(st);
i:=length(st);{встаем в конец}
while i>=1 do{идем к началу}
if st[i]='{' then{откр. скобка}
 begin
  n:=i;{запомним индекс}
  while (st[n]<>'}')and(n<=length(st)) do n:=n+1;{идем назад до закрывающей}
  delete(st,i,n-i+1);{удаляем фрагмет}
  i:=i-1;{к началу}
 end
else i:=i-1;{иначе просто к началу}
write(st);
readln
end.

ИСПОЛЬЗУЙТЕ ПОИСК!

[alexandrovna]

спасибо огромное)

[domovou]

uses wincrt;
const
  d= ['а','е','у','ы','о','э','я','и','ю'];
type mn =array [1..120]of set of char;
     gh=set of char;
var
   slovo:mn;
   a,l:string;
   i,w,p,y,k,j,z:Integer;

   d1:set of Char;
   n:Char;
   gk:gh;

Procedure print(gk:gh);
var i:char;
begin
for i:=chr(1) to chr(255) do
if i in gk then write(i:2);
end;
Procedure raz;
Begin
writeln('vvedite predlog razdel ego probelami a konec tochka.');
readln (a);
j:=0;
p:=0;
w:=0;
d1:=[];
for i:=1 to length(a) do
    begin
if  a[i] in d then d1:=d1+[a[i]];
if (a[i]=' ')or(a[i]='.')
then
                begin
     l:=copy(a,j+1,p);
     j:=i;
     p:=0;
              end
else
p:=p+1;
if (a[i]=' ')or(a[i]='.')
then
         begin
w:=w+1;
if w mod 2=0 then
     for k:=1 to length(l) do
     include(slovo[w],l[k]);
delete(l,1,20);

         end;
    end;
end;
Procedure vxod;
Begin
for n:='а' to 'я' do
    begin
      y:=0;
     if n in d then
        begin

          for k:=1 to w do

          if (n in slovo[k])
             then
             y:=y+1;

     if y>1 then gk:=gk+[n];

        end;
     end;
end;

Begin
raz;
vxod;
write ('Буквы: ');
print(gk*d1);
end.