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

Question

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

Answer 1

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

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.