Удалить слово не используя процедуру delete

var
    s: string;
    len, i, j, n: integer;
    function Del_word(n:integer; var s:string):string;
    begin
         if j < n then
           begin
                delete(s,i-j,j+1); //вырезаем вместе с пробелом после слова
                len:= length(s);
                i:= i-j; 
                j:= 0; 
           end
         else
            begin
                i:= i+1; //переходим к следующей букве
                j:= 0; //обнуляем длину слова
            end;
    end;
begin
    write('введите текст: ');
    readln(s);
    write('введите размер удаляемого слов(а): ');
    readln(n);                   
    len:= length(s);
    i:= 1; 
    j:= 0; 
    while i<=len do
    begin
        if s[i] <> ' ' then
        begin
            j:= j+1; 
            i:= i+1; 
        end
        else
          begin 
            Del_word(n,s)
          end;
    end;
    if j < n then
        delete(s,i-j,j);
    writeln(s);
readln;
end.

function Del_word(n:integer; var s,s1:string):string;
    begin
         if j < n then
           begin
                s1:=copy(s,1,i-j-1)+copy(s,i+1,length(s)-i); //вырезаем вместе с пробелом после слова
                len:= length(s);
                i:= i-j; 
                j:= 0; 
           end
         else
            begin
                i:= i+1; //переходим к следующей букве
                j:= 0; //обнуляем длину слова
            end;
    end;

var
  s: string;
  len, i, j, n: integer;
 
procedure remove(var s: string; index, count: integer);
begin
  if (index < 1) or (index > s.Length) or (count <= 0) then
    Exit;
  if index + count - 1 > s.Length then
    count := s.Length - index + 1;
  s := s.Remove(index - 1, count);
end;
 
function Del_word(n: integer; var s: string): string;
begin
  if j < n then
  begin
    remove(s, i - j, j + 1); //вырезаем вместе с пробелом после слова
    len := length(s);
    i := i - j; 
    j := 0; 
  end
         else
  begin
    i := i + 1; //переходим к следующей букве
    j := 0; //обнуляем длину слова
  end;
end;
 
begin
  write('введите текст: ');
  readln(s);
  write('введите размер удаляемого слов(а): ');
  readln(n);                   
  len := length(s);
  i := 1; 
  j := 0; 
  while i <= len do
  begin
    if s[i] <> ' ' then
    begin
      j := j + 1; 
      i := i + 1; 
    end
        else
    begin
      Del_word(n, s)
    end;
  end;
  if j < n then
    remove(s, i - j, j);
  writeln(s);
  readln;
end.