ПЖ!! ПОМОГИТЕ СРОЧНО!!! ПАСКАЛЬN естественное число и последовательность знаков (строка)

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