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

 
PascalABC.Net

const     n = 'нет'; 
var   
s : string;   
l,i : integer;    
begin 
readln (s); 
l := Length(s); 
i := 1;   
While i lt;=  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.