Замена стандартных процедур и функций для работы со строками

[Alexar Makken]

Уважаемые форумчане!!!
Написал программу для Length и Copy, не знаю как реализовать Delete, Pos, Insert
код для Length

program Length_1;
var a: string;
    i: integer;
Procedure My_length(s:string; j: integer);
begin
    i:=Ord(s[0]);
end;
 
Begin
write('Введите строку ');
readln(a);
My_length(a,i);
writeln('длина строки равна ',i);
 
End.

код для Copy

program Copy;
{+++++++++++++++++++++++++++++++++++++}
function My_copy(S:string; StartPos, Count: byte):string;
var
  i:integer;
  Temp:string;
begin
   Temp:='';
   for i:=StartPos to StartPos+Count-1 do 
     Temp:=Temp+s[i];
   My_copy := Temp;
end;
{++++++++++++++++++++++++++++++++++++}
var
   S: String;
begin
   readln(S);
   Writeln(My_copy(S,2,5));
end.

[rubius2008]

Pos(s1,s)

k:=0;
for i:=1 to length(s) do begin  
  if s1[k]=s[i] then k:=k+1 else k:=0;
  if length(s1)=k then begin pos:=k; break; end;
end;

Удаление и вставка делается через перемещение элементов строки = массива

[Alexar Makken]

Спасибо