строки.

[SnS]

помогите пожалуйста разобраться с задачей:. Задан текст, содержащий скобки. Поменять местами первое и последнее слово заключенное в скобки.

[Poma][a]

помогите пожалуйста разобраться с задачей

Как помочь? Написать всё за Вас, причем за "спасибо"(которого возможно и не будет)?

[SnS]

нет, я просто хочу разобраться:
Program a4;
var st,st1,a,b:string;
i,k,n1,n2,t1,t2:integer;
begin
writeln(' text');
readln(st);
k:=length(st);

for i:=1 to k do
begin
if st[i]='(' then n1:=i;
if st[i]=')' then n2:=i;
end;
for i:=1 to k do
begin
if st[k-i]=' ' then t1:=k-i;
if st[i]=' ' then t2:=i;
end;

вот здесь у меня тупик, у меня не получаестя записать функции для работы со строками:
st:=copy(st,n1+1,t1-n1-1);
delete(st,n1+1,t1-n1-1);
insert(st,st1,t2+1);

[Poma][a]

нет, я просто хочу разобраться:

С этого и нужно было начинать

Т.к. функция Pos проигрывает в эффективности самописной, но в настоящее время шарманки выполняют апупенное кол-во операций, то на это O(n*32) вместо О(n) совершенно по барабану, то можно использовать Pos.

Можно было делать и так как Вы. Но в чем Ваш косяк?

for i:=1 to k do
begin
if st[i]='(' then n1:=i;
if st[i]=')' then n2:=i;
end;

В том что Вы получаете последние скобки.. Но где же Вы возьмете первые скобки?
=> n1 := Pos ('(', s); n2 := Pos (')', s).
Теперь надо найти последние скобки.. Давайте пойдем Вашим способом с конца не самым эффективным алгоритмом :

i := Length(s);
while s[i] <> '(' do 
    Dec (i);

n3 := i;

i := Length(s);
while s[i] <> ')' do
    Dec (i);

n4 := i;

Теперь уже вставляем..

[SnS]

спасибо, вроде поняла