Процедура: заменить в символьной строке все вхождения одной подстроки на другую

procedure Swap(var s: string);
var sub1, sub2: string;
begin
  readln(sub1);
  readln(sub2);
  while (pos(sub1, s) <> 0) do begin
    insert(sub2, s, pos(sub1, s));
    delete(s, pos(sub1, s), length(sub1));
  end;
end;
 
var s: string;
begin
  readln(s);
  Swap(s);
  writeln(s);
end.

procedure Swap(var s: string);
var sub1, sub2: string;
    i: integer;
begin
  i := 1;
  readln(sub1); readln(sub2);
  while i <= length(s) do begin
    if (s[i] = sub1[1]) and (copy(s, i, length(sub1)) = sub1) then begin
      delete(s, i, length(sub1));
      insert(sub2, s, i);
      inc(i, length(sub2));
    end;
    inc(i);
  end;
end;
 
var s: string;
begin
  readln(s);
  Swap(s);
  writeln(s);
end.

procedure Replace(var s: String; const w, r: String);
var i: Integer;
begin
  for i:=Length(s)-Length(w) downto 1 do
    if Copy(s,i,Length(w))=w then begin
      Delete(s,i,Length(w));
      Insert(r,s,i);
    end;
end;
var
  s, s1, s2: String;
begin
  ReadLn(s);
  ReadLn(s1);
  ReadLn(s2);
  Replace(s,s1,s2);
  WriteLn(s);
end.

    if MemCmp(s[i],w[1],Length(w))=0 then begin

function MemCmp(var a, b; size: Word): Integer;
var
  r: Integer;
  aa: array [0..$FFFD] of Byte absolute a;
  bb: array [0..$FFFD] of Byte absolute b;
begin
  for size:=0 to size-1 do begin
    r:=aa[size]-bb[size];
    if r<>0 then Break;
  end;
  MemCmp:=r;
end;