Заменить плохо на плохо в скобках

Program p6;
uses crt;
var
   i:byte;
   p:integer;
   S:string;
BEGIN
     writeln('Введите текст со словом плохо.');
     readln(S);
               While i<=length(S) do
                     begin
                          IF (copy(S,i,7)=' плохо ') or
                             (copy(S,i,6)='плохо ') or
                             (copy(S,i,7)=' плохо.')then
                               begin
                                    delete(S,i,7);
                                    Insert(' (плохо) ',S,i);
                               end;
                               i:=i+1;
                     end;
                         begin
                              IF (copy(S,i,7)=' Плохо ') or
                                 (copy(S,i,6)='Плохо ') then
                                 begin
                                      delete(S,i,7);
                                      Insert(' (Плохо) ',S,i);
                                 end;
                                 i:=i+1;
                         end;
writeln;
writeln('Вывод:');
writeln(S);
END.

program p6;
uses crt;
var s:string; i,j:byte;
a:array [1..100] of string;
begin
     clrscr;
     write('Ââåäèòå ñòðîêó: ');
     readln(s);
     j:=1;
     a[j]:='';
     for i:=1 to length(s) do
         if copy(s,i,1)<>' '
            then
                a[j]:=a[j]+copy(s,i,1)
         else
             j:=j+1;
     for i:=1 to j do
         begin
              if lowercase(a[i])='ïëîõî'
                 then
                     a[i]:='(ïëîõî)';
              write(a[i],' ');
         end;
     readln;
end.

Program p6;
uses crt;
var i:byte;
    S:string;
BEGIN
writeln('Введите текст со словом плохо.');
readln(S);
i:=1;
While i<=length(S) do
if (copy(S,i,5)='плохо')
and((i=1)or(s[i-1]=' '))
and((s[i+5]=' ')or(s[i+5]='.'))then
 begin
 insert(')',S,i+5);
 insert('(',s,i);
 i:=i+6;
end
else i:=i+1;
writeln('Вывод:');
writeln(S);
END.

program p6;
uses crt;
var s:string; i,j:byte;
a:array [1..100] of string;
begin
     clrscr;
     write('Введите строку: ');
     readln(s);
     j:=1;
     a[j]:='';
     for i:=1 to length(s) do
         if copy(s,i,1)<>' '
            then
                a[j]:=a[j]+copy(s,i,1)
         else
             j:=j+1;
     for i:=1 to j do
         begin
              if lowercase(copy(a[i],1,5))='плохо'
                 then
                     begin
                          delete(a[i],1,5);
                          insert('(плохо)',a[i],1);
                     end;
              write(a[i],' ');
         end;
     readln;
end.