Дописать удаление слова с заданным номером среди палиндромов на паскале

[maksimum]

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

PROGRAM DEL;  
     USES CRT; 
     CONST  R:SET OF CHAR= [' ',’,’,’/’,’?’,’.’,’,’<’,’;’,’>’,’:’,’”’,’!’,’’’,’*’,’%’]; 
     VAR S,A,B:STRING; 
               I,K:BYTE; 
               F:BOOLEAN; 
FUNCTION PALINDROM(CONST S: STRING): BOOLEAN;
VAR
  I: INTEGER;
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(S); 
              I:=1;  F:=TRUE; 
             WHILE I<=LENGTH(S) DO 
IF S[I] IN R THEN  
      INC(I) 
   ELSE 
   BEGIN 
A:=''; B:=''; 
      WHILE (I<=LENGTH(S)) AND NOT(S[I] IN R) DO 
IF PALINDROM(S[I]) THEN
      BEGIN                   
WRITELN('INPUT NUMBER');
READLN(K);
UNTIL K<=I;

Остановился на введении номера слова, скажите на данном этапе всё правильно? Помогите дописать удаление слова определённого номера.

[GreenWizard]

1) всегда дописывай код! если он не запускается - не морочь людям голову... я вот убил 10 мин на доведение твоего кода до ума, а мог бы за 8 мин написать свой вариант
2) зачем ты внутри цикла запрашиваешь число? вначале его запросил и в цикле сравниваешь с номером палиндрома, если равен, то не записываем его в ответ

код сам доработаешь (R своё скопируешь т.к. у меня оно тупило):

var
  InputStr, WordStr, ResultStr: string;
  I, DeleteID, PalindromID: Integer;
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.

[maksimum]

Спасибо большое! Сори за потраченное время, просто не знал как сформировать удаление слова.