используя процедуры и функции для работы со сторками

Var sScob,          {текст в скобках}
    s: String;
    i,              {номер символа в строке}
    countA,         {количество букв "а"}
    oScob,          {позиция открывающей скобки}
    cScob: Integer; {позиция закрывающей скобки}
 
Begin
 {Ввести строку и подсчитать количество символов в ней}
  WriteLn('Введите строку:');
  ReadLn(s);
  WriteLn('Число символов (включая пробелы): ', Length(s));
 {В строке есть как минимум один символ "а", определить их количество}
  countA := 0;
  for i := 1 to Length(s) do
    if s[i] = 'а' then
      Inc(countA);
  WriteLn('В строке ', countA, ' символов ''а''');
 {--//-- символ "б", предусмотреть вывод на экран всех позиций "б" в строке}
  Write('Позиции ''б'': ');
  for i := 1 to Length(s) do
    if s[i] = 'б' then
      Write(i, ', ');
  WriteLn;
 {вывести текст в скобках}
   oScob := pos('(', s);
   cScob := pos(')', s);
   if (oScob > 0) and (cScob > oScob) then
     sScob := Copy(s, oScob+1, cScob-oScob-1)
   else
     sScob := 'Скобки заданы неверно';
   WriteLn('Текст в скобках (в отдельной переменной): ', sScob);
 {удалить из строки вместе со скобками}
   if (oScob > 0) and (cScob > oScob) then
     begin
       Delete(s, oScob, cScob-oScob+1);
       WriteLn('Строка без скобок: ', s)
     end
End.

procedure Instr(s : string);{Ввести строку и подсчитать количество символов в ней}
begin
  WriteLn('Введите строку:');
  ReadLn(s);
  WriteLn('Число символов (включая пробелы): ', Length(s));
end;
 
procedure Outtextscobka(s : string);{вывести текст в скобках}
var oScob, cScob : integer;{позиция открывающей скобки}{позиция закрывающей скобки}
    sScob : string; {текст в скобках}
begin
oScob := pos('(', s);
  cScob := pos(')', s);
  if (oScob > 0) and (cScob > oScob) then
    sScob := Copy(s, oScob + 1, cScob - oScob - 1)
  else
    sScob := 'Скобки заданы неверно';
  WriteLn('Текст в скобках (в отдельной переменной): ', sScob);
end;
 
procedure Delallscobka(s : string);{удалить из строки вместе со скобками}
var oScob, cScob : integer;{позиция открывающей скобки}{позиция закрывающей скобки}
begin
if (oScob > 0) and (cScob > oScob) then
  begin
    Delete(s, oScob, cScob - oScob + 1);
    WriteLn('Строка без скобок: ', s)
  end;
end;
 
var
  s: String;
 
//main
begin
  Instr(s);
  Outtextscobka(s);
  Delallscobka(s);
end.
//end main