Задан текст, содержащий скобки. Поменять

местами первое и последнее слово заключенное в скобки. (не

использовать pos)

Как-то даже не хочется размышлять, как можно было это решить по-нормальному ...

var s:string; a:array[1 ... 4] of byte; i:integer;

begin

read (s) ;

for i:=1 to length (s) do

begin if s[i]=' (' then a[1]:=i; if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end end; for i:=length (s) downto 1 do

begin if s[i]=') ' then a[4]:=i; if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end end; s:=copy (s, 1, a[1]) + copy (s, a[3]+1, a[4]-a[3]-1) + copy (s, a[2], a[3]-a[2]+1) + copy (s, a[1]+1, a[2]-a[1]-1) + copy (s, a[4], length (s) - a[4]+1) ;

write (s) ;

end.