Реализация функции delete, pos, length на Паскале (Турбо)

ВАЖНО!!! Без использования массива строк, без доп. строки и без использования стандартных функций и процедур обработки строк (и также динамическое выделение памяти бесполезно), также пример функции insert:

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