Разбить исходную строку на две подстроки с учётом слов (на Delphi)

[Евгений))))]

Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Разбить исходную строку на две подстроки, причем первая длиной k-символов (если на k-ю позицию попадает слово, то его следует отнести ко второй строке, дополнив первую пробелами до k-позиций).

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2: String;
    k,i: Integer;
begin
  s:='Then he set some traps on the ground and put a bird in each trap';
  k:=33;
  s1:=Copy(s,1,k);
  s2:=Copy(s,k+1,Length(s)-k);
  if (Length(s1)=k) and (s1[k]<>' ') and (Length(s2)>0) and (s2[1]<>' ') then
    for i:=k downto 1 do
      if s1[i]=' ' then begin
        s2:=Copy(s1,i+1,k-i)+s2;
        s1:=Copy(s1,1,i);
        Break;
      end;
  Label1.Caption:=s;
  Label2.Caption:=s1;
  Label3.Caption:=s2;
end;