Поменять местами i- и -j слова

procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.SetFocus;
end;
 
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
ComboBox1.Items.Add(ComboBox1.Text);
ComboBox1.Text:=' ';
end;
end;
 
procedure TForm1.ComboBox1Click(Sender: TObject);
var
n,i,nst,ind: integer;
begin
n:=0;
ind:=0;
nst:=ComboBox1.ItemIndex;
st:=ComboBox1.Items[nst];
for i:=1 to Length(st) do begin
case ind of
0: if st[i]<>'' then begin
ind:=1;
n:=n+1;
end;
1: if st[i]=' ' then ind:=0;
end;
  end;
Label3.Caption:=IntToStr(n);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=0;
a:=0;
b:=0;
i:=length(Form1.ComboBox1.Text);
 
repeat
 
st:=ComboBox1.Text;
inc(a);
if st[a]=' ' then inc(n);
b:=a;
until k=n;
Delete(st, 1, b);
Form1.ComboBox1.Text:=st;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='1';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
k:=strtoint(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var L: TStringList;
begin
 L := TStringList.Create;
 L.Delimiter := #32;
 L.DelimitedText := Edit2.Text;
 if (StrToInt(Edit3.Text) > L.Count) or (StrToInt(Edit4.Text) > L.Count)
  then begin
        ShowMessage('Во фразе мало слов');
        Exit;
       end;
 L.Exchange(StrToInt(Edit3.Text) - 1, StrToInt(Edit4.Text) - 1);
 Edit5.Text := L.DelimitedText;
 L.Free;
end;