Дано предложение. замените в нем все слова s1 на слово s2. на free pascal

Var p,s1,s2:string;
l,i:integer;
begin
writeln('Введите предложение:');
readln(p);
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
l:=length(s1);
i:=pos(s1,p);
while i<>0 do
 begin
 delete(p,i,l);
 insert(s2,p,i);
 i:=pos(s1,p);
 end;
writeln(p);
end.

Пример:
Введите предложение:
Купили в магазине Резиновую Зину, Резиновую Зину В корзинке принесли.
s1 = Зину
s2 = Зою
Купили в магазине Резиновую Зою, Резиновую Зою В корзинке принесли.