Обработка строк

function ReplaceWords (s: string): string;
var
  fword: string;
  sword: string;
 
 
  function ReverseString (const AText: string): string;
  var
    I: integer;
    P: PChar;
  begin
    SetLength(Result, Length(AText));
    P := PChar(Result);
    for I := Length(AText) downto 1 do
      begin
      P^ := AText[I];
      Inc(P);
      end;
  end;
 
  function firstword: string;
  var
    i: integer;
  begin
    for I := 1 to length(s) do
      begin
      if s[i] in [' ', ',', '.', '!', '?', ':', '-'] then
        begin
        Result := copy(s, 1, i - 1);
        Delete(s, 1, i - 1);
        break;
        end;
 
      end;
  end;
 
begin
 
  fword := firstword;
  s := reversestring(s);
  sword := reversestring(firstword);
  s := reversestring(s);
  s := sword + s + fword;
 
  Result := s;
 
end;

function ReplaceWords (s: string): string;
var
  fword: string;
  sword: string;
 
  function doword (last: boolean = False): string;
  var
    i, idx: integer;
  begin
    for I := 1 to length(s) do
      begin
      if s[i] in [' ', ',', '.', '!', '?', ':', '-'] then
        begin
        idx := i;
        if not last then
          break;
        end;
      end;
 
    if not last then
      begin
      Result := copy(s, 1, idx - 1);
      Delete(s, 1, idx - 1);
      end
    else
      begin
      Result := copy(s, idx + 1, length(s) - idx);
      Delete(s, idx + 1, length(s) - idx);
      end;
 
  end;
 
begin
  fword := doword();
  sword := doword(True);
  s := sword + s + fword;
  Result := s;
end;
 
ShowMessage(ReplaceWords('Лес, летний, яркий, пышными еловыми лапами сразу очаровал Светлану'));