Поменять местами слова,которые находятся в скобках

[Санко]

14) Задан текст, содержащий скобки. Поменять местами слова заключенные в скобках. (не использовать pos)

[Stilet]

var s:string; i,k:integer; a:array[1..4] of integer;
s:='Задан (текст), содержащий (скобки).';
i:=1;k:=1;
for i:=1 to Length(s) do  if s[i] in ['(',')'] then begin a[k]:=i; inc(k); end;
s:=
   copy(s,1,a[1])
 +copy(s,a[3],a[4]-a[3])
 +copy(s,a[2],a[3]-a[2])
 +copy(s,a[1],a[2]-a[1])
 +copy(s,a[4],Length(s))
;

Э-м-м... Это с потолка, не проверял.
Ну и условие в твоей задачи содержит кучу неточностей, потому считаю что скобки идут одна за другой.