Рекурсивная функция, Удаление символов Опции

[Restinpiece]

У меня вот такая задача в Delphi:
Задана строка, которая содержит в себе правильную запись со скобками, например ((ав)с(d((l)f))). Удалить из строки все символы, кроме скобок. Задачу нужно решить с помощью рекурсивной процедуры или функции.
Вроде функция сделана, но почему то работает не совсем правильно:оставляет только первіе четыре скобки. Помогите пожалуйста, а то не могу понять, в чем причина.

Код

function recurs(s: string): string;
begin
   if (s='') or (pos('(',s)=0) and (pos(')', s)=0) then recurs:=''
   else
      if (pos('(',s) > pos(')', s)) and (0< pos(')', s)) or (pos('(',s)=0) then
                 recurs:= ')'+recurs(copy(s, pos(')', s)+1, length(s)-pos(')', s)-2))
     else
                 recurs:= '(' +recurs(copy(s, pos('(', s)+1, length(s)-pos('(', s)-2));
end;

Вызываю функцию так:

Код

writeln(recurs('((ав)с(d((l)f)))'));

[Malice]

А по-простетски нельзя ?

function f(s:string):string;
begin
if s='' then f:='' else
  if s[1] in ['(',')'] then
     f:=s[1] +f(copy (s,2,255))
      else
     f:=f(copy(s,2,255));
end;

Или обязательно иметь ввиду, что выражение со скобками ?

[Restinpiece]

а, спасибо, так работает. Только не могу понять, почему 255?

[Malice]

а, спасибо, так работает. Только не могу понять, почему 255?

На паскале максимальная длина строки 255 символов, по-этому поставив 255 в любом случае скопируется весь остаток. Но, конечно, лучше поставить (Length(s)-1), будет корректней.