Удаление символов из строки без использования стандартной функции delete

function mydel(s : string; n : Byte) : string;
var i : Byte;
begin
  if n > Length(s) then Exit;
  for i := n to Length(s)-1 do
    s[i] := s[i+1];
  s[0] := chr(Length(s)-1);
end;
 
var s : String; i : byte;
begin
  ReadLn(s);
  for i := Length(s) downto 2 do
    if s[i] = s[i-1] then s := mydel(s, i);
  WriteLn(s);
end.

 mydel:=s

mydel:=s

function mydel(s : string; n : Byte) : string;
var i : Byte;
begin
  if n > Length(s) then Exit;
  for i := n to Length(s)-1 do
    s[i] := s[i+1];
  s[0] := chr(Length(s)-1);
  mydel:=s;
end;

var s, t: string;
    i: integer;
begin
  readln(s);
  t := '';
  if length(s) > 0 then t := s[1];
  for i := 2 to length(s) do if s[i] <> t[length(t)] then t := t + s[i];
  s := t;
  writeln(s);
  readln
end.

var s, t: string;
    i: integer;
begin
  readln(s);
  t := '';
  i := 1;
  while i <= length(s) do
    begin
      if (i = length(s)) or (s[i] <> s[i + 1])
        then t := t + s[i]
        else inc(i);
      inc(i)
    end;
  s := t;
  writeln(s);
  readln
end.

var
  s: String;
  j, k, l: Byte;
begin
  ReadLn(s);
  j:=1; l:=Length(s); {k:=0;}
  while j<l do begin
    if s[j]<>s[j+1] then begin
      Inc(k); s[k]:=s[j];
    end else Inc(j);
    Inc(j);
  end;
  if j=l then begin
    Inc(k); s[k]:=s[j];
  end;
  s[0]:=Char(k);
end;