Выполнить в паскале: 2.2. подсчитать количество предлогов "в" в данном предложении. 2.3. удалить предлоги "с" в строке.

Var s:string;i,n,k:integer;
begin
s:= 'Вот это в задание требует в предлогов в данном в предложении';
n:= length(s);
for i:= 2 to n-1 do begin
if (s[i-1]=' ') and (s[i]= 'в') and (s[i+1]=' ')  then begin writeln(i,s[i]:3);
k:= k +1;end;end;
write(k);end.