Буквы каждого слова в строке отсортировать по алфавиту.

uses crt;
const razd:set of char=[' ','.',',',':',';','!'];
var st,buf:string;
function sort(st:string):string;
var i,j:integer;
b:char;
begin
 for i:=length(st) downto 1 do for j:=1 to i-1 do if st[j] > st[j+1] then
 begin
  b:=st[j];
  st[j]:=st[j+1];
  st[j+1]:=b;
end;
begin
 clrscr;
 readln(st);
 repeat
  if (st[1] in razd) or (length(st)=0) then while st[1] in razd do delete(st,1,1)
  else
  begin
   while (not (st[1] in razd)) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
   write(sort(buf),' ');
   buf:='';
 end;
 until (length(st)=0) and (length(buf)=0);
 readln;
end.

[PASCAL]

uses crt;
const razd:set of char=[' ','.',',',':',';','!'];
var st,buf:string;
function sort(st:string):string;
var i,j:integer;
b:char;
begin
for i:=length(st) downto 1 do
    for j:=1 to i-1 do
        if st[j] > st[j+1] then begin
        b:=st[j];
        st[j]:=st[j+1];
        st[j+1]:=b;
        end;
end;
begin
clrscr;
readln(st);
repeat
if (st[1] in razd) or (length(st)=0) then while st[1] in razd do delete(st,1,1)
else
begin
while (not (st[1] in razd)) and (length(st)>0) do
begin
buf:=buf+st[1];
delete(st,1,1);
end;
write(sort(buf),' ');
buf:='';
end;
until (length(st)=0) and (length(buf)=0);
readln;
end.

function sort(st:string):string;
var i,j:integer;
b:char;
begin
for i:=length(st) downto 1 do
for j:=1 to i-1 do if st[j] > st[j+1] then
 begin
  b:=st[j];
  st[j]:=st[j+1];
  st[j+1]:=b;
 end;
sort:=st//вот здесь 2 строки
end;