Заменить часть строки на другие символы

  ReadLn(s);
  for i:=Low(a) to High(a) do begin
    {ищем a[i] в s, заменяем если нашли}
  end;

function rus(s:ansistring):ansistring;
var i, j:integer;
    bdpos, len:integer;
begin
  for i:=1 to M do
  begin
    len:=length(blru[i]);
    bdpos:=pos(blru[i], s);
    if bdpos<>0 then
      for j:=bdpos to bdpos+len do
        write('*');
  end;
end;

    for j:=bdpos to bdpos+Length(blru[i])-1 do s[i]:='*';

    if bdpos<>0 then Delete(s,bdpos,Length(blru[i]);

function rus(s:ansistring):ansistring;
var i, j:integer;
    bdpos, len:integer;
begin
  for i:=1 to M do
  begin
    len:=length(blru[i]);
    bdpos:=pos(blru[i], s);
    if bdpos<>0 then
    begin
      delete(s, bdpos, len);
      for j:=bdpos to bdpos+len-1 do
        write('*');
    end;
  end;
end;

function rus(s: AnsiString): AnsiString;
const blru: array [0..2] of AnsiString = ('one','two','three');
var t: AnsiString; p: Integer;
begin
  for t in blru do begin
    p:=Pos(t,s);
    if p<>0 then
      for p:=p to p+Length(t)-1 do
        s[p]:='*';
  end;
  rus:=s;
end;
 
begin
  WriteLn(rus('zero one one two'));
  ReadLn;
end.

    p:=Pos(t,s);
    while p<>0 do begin
      for p:=p to p+Length(t)-1 do
        s[p]:='*';
      p:=Pos(t,s);
    end;

    repeat
      p:=Pos(t,s); if p=0 then Break;
      for p:=p to p+Length(t)-1 do s[p]:='*';
    until False;

  for i:=Low(blru) to High(blru) do begin
    p:=Pos(blru[i],s);
    if p<>0 then
      for p:=p to p+Length(blru[i])-1 do
        s[p]:='*';
  end;