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

const rz=[' ',',']; //разделители
var s,ss,s1,s3:string;
    i,j,k,i3:integer;
begin
s:='Еду на завтра отложи, а работу сегодня сделай';
writeln(s);
s:=' '+s;//добавим пробел в начало для удобства
k:=0;
i:=2;
while i<length(s) do
if (s[i-1] in rz)and not(s[i] in rz) then
 begin
  inc(k);
  j:=i;
  ss:='';
  while(j<=length(s))and not(s[j] in rz) do
   begin
    ss:=ss+s[j];
    j:=j+1;
   end;
  if k=1 then s1:=ss;//запомним 1 слово
  if k=3 then
   begin
    s3:=ss;//запомним 3 слово
    i3:=i; //и индекс его начала
   end;
  i:=i+length(ss); //перешагнем через слово
 end
else i:=i+1; //пропустим разделители
delete(s,i3,length(s3));//удалим 3 слово
insert(s1,s,i3);  //вставим 1
delete(s,2,length(s1)); //удалим 1 слово
insert(s3,s,2);//вставим 3
delete(s,1,1); //удалим добавленный пробел
write(s);
end.