В каждое слово строки вставить введённую пользователем букву после символа с заданным номером

procedure TForm1.Button1Click(Sender: TObject);
var
  wb: boolean; s,b:string; i,k,n,m,j,p:integer; a:array of string;
begin
  s:=Edit1.Text;
  b:=Edit2.Text;
  k:=strtoint(Edit3.Text);
  wb:=false;
  m:=0;
  j:=0;
  for i:=1 to length(s) do
    begin
      if (not(s[i]=' ')) and (wb=false) then
        begin
          wb:=true;
          n:=i;
        end;
      if (s[i]=' ') and (wb=true) then
        begin
          wb:=false;
          p:=i;
          SetLength(a,j+1);
          a[m]:=copy(s,n,p-1);
          insert(a[m],b,k);
          m:=m+1;
        end;
    end;
  ShowMessage(a[m-1]);
end;

function WordCount(const S : String; const WordDelims: TCharSet) : Integer;
var
  SLen, I : Cardinal;
begin
  Result := 0;
  if WordDelims = [] then
    Exit;
  I := 1;
  SLen := Length(S);
  while I <= SLen do
  begin
    while (I <= SLen) and CharInSet(AnsiChar(S[I]), WordDelims) do
      inc(I);
    if I <= SLen then
      inc(Result);
    while (I <= SLen) and not CharInSet(AnsiChar(S[I]), WordDelims) do
      inc(I);
  end;
end;
 
function ExtractWord(Value : Integer; const S : String; const WordDelims : TCharSet) : String;
var
  I, Len: Integer;
begin
  Len := 0;
  if WordDelims = [] then
    Exit;
  I := WordPosition(Value, S, WordDelims);
  if I <> 0 then
    // find the end of the current word
    while (I <= Length(S)) and not CharInSet(AnsiChar(S[I]), WordDelims) do
    begin
      // add the I'th character to result
      inc(Len);
      SetLength(Result, Len);
      Result[Len] := S[I];
      inc(I);
    end;
  SetLength(Result, Len);
end;
 
...
var
  Text, Symbol, St : String;
  Index, I : Integer;
  buf : array of String;
begin
  Text   := Edit1.Text;
  Symbol := Edit2.Text;
  Index  := StrToIntDef(Edit3.Text, 0);
  if Index = 0 then
    Exit;
  for I := 1 to WordCount(Text, [' ']) do
  begin
    St := ExtractWord(I, Text, [' ']);
    if Index > Length(St) then
      Continue;
    Insert(St, Index, Symbol);
    SetLength(buf, Length(buf) + 1);
    buf[Length(buf) - 1] := St;
  end;
end;