Задача со строками

[Mad_Cat]

//лагает((((

[Undefitied]

Сообщение от Mad_Cat

var
s:string;
buf:string;
begin
s:='(ssss Sssdsds)(SDsdsdsD)Sdsds(SSD)(dsdsdss)';
buf:='';
while (pos('(',s)<>0) and  (pos(')',s)<>0) do
begin
buf:=buf+copy(s,1,pos('(',s))+')';
delete(s,1,pos(')',s));
end;
buf:=buf+s;
writeln(buf);
end.

Спасибо. Напишите алгоритм пожалуйста.


------------------------------------------------

program lab6;
uses crt;
var
s:string;
z,x,y,k,i:integer;
begin
clrscr;
readln(s);


repeat k:=0;
z:=length(s);
for i:=1 to z do begin
if s[i]='{' then
x:=i+1;

if s[i]='}' then begin
y:=i;

delete(s,x,y-x);
inc(k);
end;
end;

until(k<=z);
writeln(s);
readln;
end.

Вот до чего я сам дошел. Программа работает с ошибкой, если в конце строки у меня стоят скобки, то последнюю скобку тоже удаляет. Помогите с поиском ошибки

[Undefitied]

Спасибо всем кто помогал. Со всеми вопросами разобрался