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

  PascalABC.Net const     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.