помогите решить в паскале авс.2. Дано предложение. Заменить в нем все вхождения буквосочетания «да» на «нет».

 PascalABC.Netconst     n = 'нет'; var   s : string;   l,i : integer;    begin  readln (s);  l := Length(s);  i := 1;   While i <=  l-1 do    begin     if s[i] = 'д' then      if s[i+1] = 'а' then       begin        l := l+1;        delete (s,i,2);        Insert (n,s,i);       end;     i := i +1;    end;  writeln (s); end.