Строки

[NAt]

Строки

помогите разобраться: . Задан текст, содержащий скобки. Поменять местами первое и последнее слово заключенное в скобках.
Program a4;
var st: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='(' then n1:=i;
if st=')' then n2:=i;
end;
for i:=1 to k do
begin
if st[k-i]=' ' then t1:=i;
if st=' ' then t2:=i;
end;
for i:=1 to k do begin
a:=copy(st,n1+1,t1-n1-1);

delete(st,n1+1,t1-n1-1);

здесь у меня тупик. помогите разобраться