В строке все вхождения слова "Да" заменить на "Нет".

var 
 st: string;
 i: integer;
begin
 readln(st);
  for i:=1 to length(st) do
   begin
    if (st[i] = 'Д') or (st[i] = 'д') then
     begin
      st[i]:='Н';
      delete(st, pos('Н', st)+1, 1);
      insert('ет', st, pos('Н', st)+1);
     end;
   end;
 writeln(st);
end.

var
a,i:integer;
s:string;
begin
a:=-2;
readln(s);
for i:=1 to length(s) do
if (s[i]='Д') and (s[i+1]='а') or (s[i]='д') and (s[i+1]='а')  then inc(a);
for i:=1 to length(s)+a do
    begin
    if (s[i]='Д') and (s[i+1]='а') or (s[i]='д') and (s[i+1]='а')  then
       begin
         delete(s,i,2);
         insert('Нет',s,i) ;
         end;
    end;
writeln(s);
end.

uses crt;
const rz=[' ',',','.',';',':','?','!'];
      b1=['Д','д'];
      b2=['А','а'];
var s:string;
   i:byte;
begin
{writeln('Введите строку, содержащую слова "да" в разных регистрах букв:');
read(s); }
s:='Да, эта дамочка дает! дА еще и задается.';{для примера}
for i:=length(s)-1 downto 1 do{идем с конца чтобы не сбились индексы}
if (s[i] in b1)and(s[i+1] in b2){если наши бувы(да)}
   and((i=1)or(s[i-1] in rz)){и это первое слово или перед ним разделитель}
   and((i=length(s)-1)or(s[i+2] in rz)){и это посдеднее слово или за ним разделитель}
   then
    begin
     delete(s,i,2);
     insert('Нет',s,i);
    end;
write(s);
end.