Замена фрагмента строки (Pascal)

[Volk_xD]

В заданном тексте заменить словосочетание «protiv» на словосочетание «za» и подсчитать число произведенных замен.
Попытался сам, но не получается...

Program Str_1;
Uses crt;
Var
  St:String;
  I:Byte;
Begin
clrscr;
Writeln ('VVedite stroku->');
  Readln(St);
If Pos('protiv',St)=0 Then
  Readln;
End.

[Mad_Cat]

while pos('protiv',st)<>0 do
begin
k:=pos('protiv',st);
delete(st,k,6);
insert('za',st,k);
end;

[Volk_xD]

Спасибо. Получилось