Дано предложение. Заменить в нём все вхождения подстроки s1 на подстроку s2 — Pascal(Паскаль)

uses crt;
var s,s1,s2:string;
    p:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
writeln('Введите подстроку, которую менять');
readln(s1);
writeln('Введите подстроку, на которую менять');
readln(s2);
p:=pos(s1,s);
if p=0 then write('В заданной строке подстроки ',s1,' нет')
else
 begin
  while p>0 do
   begin
    delete(s,p,length(s1));
    insert(s2,s,p);
    p:=pos(s1,s);
   end;
  write(s);
 end;
readln
end.