Ребят, решал задачку на строки, зашел в тупик...

Const DELIMITERS: set of char = [ ' ', ... (* -- put here your set of chars*) ];

function isAlpha(c: char): boolean;
 begin
   isAlpha := not (c IN DELIMITERS);
 end;

function processLine(s: string): string;
 begin

 output := '';
 s := ' ' + s + ' ';
 word := '';

 for i:=1 to length(s) do begin
  c := s;
 
  if isAlpha(c) then begin
    word := word + c;
    continue;
  end;

  {else:}
  if length(word) <> 0 then begin
    if word[1] = word[length(word)] then
    word := ''   {-- delete word}
    else
    word := word + word;  {-- duplicate word}
  end;

  output := output + word + c;
  word := '';    

 end;

 ouput := copy(output, 2, length(output) - 2);  {-- cut the lead and final spaces, added at start}
 processLine := output;

 end;