Дано предложение. Замените в нем все слова 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 i0 do
 begin
 delete(p,i,l);
 insert(s2,p,i);
 i:=pos(s1,p);
 end;
writeln(p);
end.

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