Janilabo | Paste() [SCAR/Simba]

procedure Place(srcStr: string; var dstnStr: string; cpyCnt, srcPos, dstnPos: Integer);
var
  i, sl, dl, e: Integer;
  str, tmp: string;
begin
  if ((srcPos < 1) or (dstnPos < 1) or (cpyCnt < 1)) then
    Exit;
  sl := Length(srcStr);
  str := Copy(srcStr, srcPos, cpyCnt);
  if (sl < (srcPos + cpyCnt)) then
    str := (str + Replicate(' ', (((srcPos + cpyCnt) - sl) - 1)));
  Delete(dstnStr, dstnPos, cpyCnt);
  Insert(str, dstnStr, dstnPos);
end;

var
  test1, test2: string;

begin
  ClearDebug;
  test1 := 'Janilabo';
  test2 := '--------';
  Place(test1, test2, 4, 1, 3);
  WriteLn(test2);
end.