Программирование. помогите задача по программированию. подскажите.ПОЖАЛУЙСТА!!!! и заранее спасибо!

var s: string; i: integer; begin readln(s); for i:=2 to length(s)-2 do  if (s[i-1]+s[i]+s[i+1]+s[i+2]=' не ') then s[i+1]:='и'   else if ((s[i-1]+s[i]+s[i+1]='не ') and (i=2)) then s[i]:='и'    else if ((s[i]+s[i+1]+s[i+2]=' не') and (i=length(s)-2)) then s[i+2]:='и'; write(s); end. Задача 2 var s: string; i, k: integer; begin readln(s); for i:=2 to length(s)-1 do  if s[i-1]+s[i]+s[i+1]=' в ' then inc(k)   else if ((s[i-1]+s[i]='В ') or (s[i-1]+s[i]='в ')) and (i=2) then inc(k); write(k); end. Если есть вопросы, пишите в ЛС :)