Поменять местами слова в строке

var s,s1,sn,sk:string;
    i,j,q,n,k,ni,ki:integer;
begin
writeln('Введите строку из не менее чем 2 слов, разделенных пробелами');
readln(s);
s:=' '+s+' '; //добавим пробелы в начало и в конец для удобства
//подсчитаем слова
q:=0;
for i:=2 to length(s)-1 do
if (s[i]<>' ')and(s[i-1]=' ') then q:=q+1;//если не пробел, а перед ним пробел, новое слово
repeat
writeln('Введите номера слов для обмена 0<n<k<=q');
readln(n,k);
until(n>0)and(k>n)and(k<=q);
q:=0;
for i:=2 to length(s)-1 do
if (s[i]<>' ')and(s[i-1]=' ') then
 begin
  q:=q+1;//считаем слова
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if q=n then
   begin
    sn:=s1;
    ni:=i;
   end
  else if q=k then
   begin
    sk:=s1;
    ki:=i;
   end;
 end;
delete(s,ki,length(sk));//удалим сначала второе
insert(sn,s,ki);//вставим первое
delete(s,ni,length(sn));//потом удалим первое
insert(sk,s,ni); //вставим второе
delete(s,1,1); //удалим первый пробел
write(s);
end.