Слова в скобках, вывод всех слов Опции

[acid_burn]

Привет всем! Люди, помогите решить следущую задачу.
Дана строка. Вывести все символы, находящиеся в скобках.
Вот программка, но почему-то не хочет работать:

Код

Program mnogo_scobok;
Uses Crt;
var
s,s1:string;
p1,p2,i:byte;
begin
    clrscr;
    write('Please, input string >');
    readln(s);
    s1:='';
    p1:=pos('(',s);
    p2:=pos(')',s);
    while (p1 and p2)<>0 do
     begin
         for i:=p1+1 to p2-1 do
            s1:=s1+s[i];
         delete(s,p1,p2-p1+1);
         p1:=pos('(',s);
         p2:=pos(')',s);
     end;
    writeln;
    writeln(s1);
    writeln;
    writeln('Press any key...');
    readkey;
end.

Вот ещё алгоритм, на котором, как мне кажется, можно легко понять работу программы.


И вот эту задачку, а то что-то даже в голову не идёт:
Определить имеются ли в двумерном массиве элементы со значениями, содержащими цифру «1» (например, 105)

Сообщение отредактировано: acid_burn - 2.05.2008 9:29

[acid_burn]

Спасибо всем. Помогите решить следущую задачку. Дано предложение. Между словами ровно один пробел. Выделить в нём все слова.
P.S Люди, почему у меня никому рейтинг поднимать нельзя???