Даны строки S , S1, S2. Заменить в строке S все вхождения строки…

Vars1,s2,s3: string; i,j: longint; beginreadln (s1,s2,s3); for i: =1 to length (s1); begink: =pos (s2,s1); if k>0 then begindelete (s1,k,length (s2); insert (s2,s1,k); {Не помню точно, в каком порядке первые 2 переменные}writeln (s1); end else exit; end; end.