Замена слов в строке

function slovo(b:char):boolean;
begin
slovo:=((b>'A')and (b<'Z') or (b>'a') and (b<'z'));//позволяет проверять буква это или нет
end;
 
procedure Sort(var str1:string);
var i, ln, oy, oy1:integer;
begin
 i:=1;
 ln:=length(str1);
 while (i<=ln) do
   begin
 
     while (not slovo(str1[i])) and (i<=ln) do
         inc(i);
         oy:=i+1;
       while (slovo(str1[i])) and (i<=ln) do
         inc(i);
         oy1:=i;
 
    inc(i);
   end;
end;
 
var s:string;
begin
readln(s);
Sort(s);
readln
end.

program Project1;
 
function bukva(b:char):boolean;
begin
   bukva:=(((b>='A')and (b<='Z' ))or((b>='a')and (b<='z')) );
end;
 
procedure uuu(var str1:string);
var i,j,beg,lw,begV,lwv,begtemp,ltemp,k:integer;
    w,wv,wtemp:string;
begin
i:=0;
 while (i<=length(str1)) do
   begin
     while ((i<=length(str1)) and(not bukva(str1[i]))) do
       inc(i);
      beg:=i;
      while((i<=length(str1)) and( bukva(str1[i])))do
        inc(i);
      lw:=i-beg;
      w:=copy(str1,beg,lw);
      wv:=w;
      begV:=beg;
      lwv:=lw;
      j:=i;
//   end;
   //end;
 while (j<=length(str1))do
   begin
     while (j<=length(str1)) and (not bukva(str1[j])) do
      inc(j);
      begtemp:=j;
     while (j<=length(str1)) and ( bukva(str1[j])) do
      inc(j);
      ltemp:=j-begtemp;
      wtemp:=copy(str1,begtemp,ltemp);
      if wtemp<wv then
       begin
        wv:=wtemp;
        begv:=begtemp;
        lwv:=ltemp;
       end;
      end;
   if begv<>beg then
     begin
       k:=begv-lw+lwv;
       delete(str1,beg,lw);
       insert(wv,str1,beg);
       delete(str1,k,lwv);
       insert(wv,str1,lwv);
       i:=i-lw+lwv;
     end;
end;
end;
 
var str1:string;
    i:integer;
begin
readln(str1);
uuu(str1);
for i := 1 to length(str1) do
  begin
    write(str1[i]);
  end;
readln
end.