Дано предложение. Замените в нем все слова s1 на слово s2.
Помогите пожалуйста на Free Pascal

var p,s1,s2:string;l,i:integer;beginwriteln('Введите предложение:');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 = ЗоюКупили в магазине Резиновую Зою, Резиновую Зою В корзинке принесли.