прога сортирует слова по возрастанию! =)
program z14;
uses crt;
var a,d,sl1,sl2 : string;
i,l,k,j : longint;
b : array [1..50] of string;
begin
clrscr;
write('input s: ');readln(a);
l:=length(a);
if a=''then halt;
if a[l]<>' ' then begin inc(l);a[l]:=' '; end;
for i:=1 to l do
if a[i]=' 'then begin
inc(j);b[j]:=d;d:='';
end
else d:=d+a[i];
for i:=1 to j-1 do
for k:=i+1 to j do
begin
sl1:=b[i];
sl2:=b[k];
if length(sl1)>length(sl2) then begin
b[i]:=sl2;
b[k]:=sl1;
end;
end;
for i:=1 to j do write(' ',b[i]);
readln;
end.