Во введенной строке заменить выделенное слово на другое слово-Pascal(Паскаль)

uses crt;
const rz=['.',',',' ','?','!',';',':'];
var s:string;
    i:byte;
begin
clrscr;
s:='можно, возможно, возможнось можно. можно';
writeln(s);
for i:=length(s)-4 downto 1 do
if (copy(s,i,5)='можно')
   and((s[i-1] in rz)or(i=1))
   and((s[i+5] in rz)or(i+4=length(s))) then
    begin
     delete(s,i,5);
     insert('нельзя',s,i);
    end;
write(s);
readln
end.