нужно подправить задачу на удаление слова-палиндрома из строки с использованием процедур и функций

[maksimum]

Ввести строку текста. Может быть пустая строка или из одних пробелов. Разделители: пробел ,/?.<;>:”!’*%. Слово- любая последовательность символов, ограниченная с одной или двух сторон разделителями. Удалить из строки слово с заданным номером среди палиндромов. Проверку слова на палиндром оформить как функцию.

program del;
     uses crt;
     const  r:set of char= [' ',',','/','?','.','<',';','>',':','"','!',''','*','%'];
var
  s, inputstr, wordstr, resultstr: string;
  i, deleteid, palindromid: integer;     
               f:boolean; 
function palindrom(const s: string): boolean;
var
  i: integer;
  result: boolean;
begin
  result := false;
  for i := 1 to length(s) div 2 do
    if s[i] <> s[length(s) - i + 1] then exit;
  result := true;
end;     
 
 
begin
  clrscr;
  write('s=');
  readln(inputstr);
  write('delete palindrom #');
  readln(deleteid);
 
  resultstr := '';
  palindromid := 0;
  i := 0;
  while i < length(inputstr) do
    begin
      inc(i);
      if not (inputstr[i] in r) then
        begin
          wordstr := '';
          while (i <= length(inputstr)) and not (inputstr[i] in r) do
            begin
              wordstr := wordstr + inputstr[i];
              inc(i);
            end;
 
          dec(i);  
          if palindrom(wordstr) then
            begin
              inc(palindromid);
              if palindromid <> deleteid then
                resultstr := resultstr + wordstr;
            end
          else
            resultstr := resultstr + wordstr;
        end
      else
        resultstr := resultstr + inputstr[i];
    end;
 
  writeln(resultstr);
  readln;
end.

Нужно, чтобы программа удаляла слово, а не переписывала строку без этого слова

[Niro]

Очевидно, надо использовать процедуру
delete (из строки эс, с позиции ка, удалить икс символов)

примерно так)

while i < length(inputstr) do
    begin
      inc(i);
      if not (inputstr[i] in r) then
        begin
          wordstr := '';
          while (i <= length(inputstr)) and not (inputstr[i] in r) do
            begin
              wordstr := wordstr + inputstr[i];
              inc(i);
            end;
 
          dec(i);  
          if palindrom(wordstr) then
            begin
              inc(palindromid);
              if palindromid = deleteid then begin
                
                 i:= i - length (wordstr); {или i:= i - length (wordstr) +1;}
                 delete (inputstr, pos (wordstr, inputstr), length (wordstr));
            end 
          else
            resultstr := resultstr + wordstr;
        end
      else
        resultstr := resultstr + inputstr[i];
    end;

P.S. если честно то этот код вы писали?
(без обид, просто интересно)