ПАСКАЛЬ. ПОМОГИТЕ ПЖ!!! N натуральное число и последовательность символов (строка) S1,s2

program raf105;

var

 s:string;

 n,i:integer;

begin

writeln('Введите строчку:');

readln(s);

writeln('Введите номер знака после которого не необходимо сменять скобки:');

readln(n);

for i:=1 to n do

 if (s[i] = '(') or (s[i] = ')')

   then s[i]:= '';

writeln('Отредактированный вариант строчки:');

writeln(s);

end.

Язык PascalABC