function RemoveMusor(What: string; Where: string) : string;
var
  c, i: integer;
  stt, st, st1: string;
begin
  c := 0;
  st := Where;

  for i := 1 to Length(st) do
  begin

    stt := copy(st, i, 1);
    if (stt = What) and (c >= 1) then
    begin
      st1 := st1;
      c := c + 1;
    end
    else if (stt = ' ') and (c = 0) then
    begin
      c := c + 1;
      st1 := st1 + stt;
    end
    else if (stt <> What) then
    begin
      c := 0;
      st1 := st1 + stt;
    end
  end;
  result := st1;
end;