Программа по работе с текстами. Нужна помощь :(

[Verwolf]

Составить программу которая выделяет из текста все что находится в круглых скобках. Использовать процедуры.

[puporev]

uses crt;
procedure Scob(s:string);
var s1:string;
    i,j,k1,k2:byte;
begin
i:=1;
k1:=0;k2:=0;
while i<=length(s) do
if (s[i]='(')and(i<length(s)) then{если открывающая скобка и это не последний символ}
 begin
  k1:=1;{фиксируем наличие этой скобки}
  j:=i+1;{смотрим дальше}
  s1:='';
  while (s[j]<>')')and(j<length(s))do{пока не закрывающая скобка или не конец строки}
   begin
    s1:=s1+s[j];{составляем слово}
    j:=j+1;
   end;
  i:=i+length(s1)+1;{если слово закончилось скобкой, перескакиваем через него}
  if s[i]=')'then
   begin
    k2:=1;{фиксируем закрывающую скобку}
    writeln(s1);{выводим слово внутри скобок}
   end;
 end
else i:=i+1;{если не открывающая скобка просто идем дальше}
{если нет открывающей скобки, или после нее нет закрывающей}
if (k1=0)or(k2=0) then write('В тексте нет фрагментов, заключенных в круглые скобки!');
end;
var str:string;
begin
clrscr;
writeln('Введите текст:');
readln(str);
Scob(str);
readln
end.

[NSvirus]

Если учитывать, что существует баланс скобок:

procedure (stroka:string);
var i,t:integer;
begin
 for i:=1 to length(stroka) do
   if stroka[i]='(' then
     begin
       t:=i;
       for i:=t+1 to length(stroka) do
       begin
         if stroka[i]=')' then break;
         write(stroka[i],' ');
       end;
     end;
end;

[Verwolf]

Огромное вам спасибо!!!! Очень сильно мне помогли

[puporev]

Если учитывать, что существует баланс скобок:

В данной задаче это не обязательно, например в строке (() выведет (.
Немного некрасиво когда между скобками ничего нет, выводит пустую строку, надо было что-то придумать.