Дано предложение. Замените в нем все слова 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 = Зою Купили в магазине Резиновую Зою, Резиновую Зою В корзинке принесли.