Дана строка символов, удалить из строки все символы ( и ) — Pascal(Паскаль)

uses crt;
var s:string;
   i:byte;
begin
clrscr;
writeln('Введите строку, содержащую круглые скобки:');
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['(',')'] then delete(s,i,1);
write(s);
readln
end.