Модули

program Stroki;
var stroka,StrSkobki,NewStr:string;i,BP,EP:integer;
 
function NewCopy(str:string;PosBegin,PosEnd:integer):string;
begin
NewCopy:=copy(str,PosBegin,PosEnd-PosBegin+1);
end;
 
function NewDelete(SubStr,Str:string):string;
var Len,p:integer;
begin
p:=pos(SubStr,str);
Len:=length(SubStr);
Delete(Str,p,Len);
{Delete(str,p-1,Len+2);если нужно чтобы скобки удалились}
NewDelete:=Str;
end;
 
function MyPos(SubStr,Str:string):integer;
begin
MyPos:=pos(SubStr,Str);
end;
function MyDown(Str:string):string;
var tmp:string;
begin
     tmp:='';
     for i:=1 to length(str) do
         begin
         tmp:=tmp+UpCase(str[i]);
         end;
MyDown:=tmp;
end;
 
 
BEGIN
 writeln('Vvedite Stroky');
 readln(stroka);
 BP:=pos('(',stroka) + 1;
 EP:=pos(')',stroka) -1;
 StrSkobki:=Newcopy(stroka,BP,EP);
 NewStr:=NewDelete(strskobki,Stroka);
 StrSkobki:=MyDown(StrSkobki);
 writeln('New = ',NewStr);
 writeln('Skobki =',StrSkobki);
 readln;
 
 
END.