Как реализовать функцию insert на паскаль без использования массива строк и использования доп строки?

я набросал такой код, но у меня индекс выходит за границы , сам код

function myinsert(substring: string;var s: string; start: integer): string;
var
  i, l,l1, f: integer;
begin
  l := length(substring);
  l1:=length(s);
  l1:=l+l1;
  writeln(l,' ',length(s));
  for i := l1-1 downto start+1 do
  begin
    writeln(i);
  s[i] := s[i - l];
  end;
  f := 1;
  for i := start to start + l - 1 do
  begin
    s[i] := substring[f];
    inc(f);
  end;
end;