Дано три строки: S1, S2, S3. Заменив в строке S1 все вхождения строки S2 на S3 — Pascal(Паскаль)

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