Последовательность слов переменной длинны (от 1 до 10 символов) может содержать максимально 10 слов. Слова разделяются пробелом, последовательность заканчивается точкой. Упорядочить слова по возрастанию длины — Pascal(Паскаль)

var
a,temp:string;
b:array[1..10]of string;
i,k,j:integer;
begin
readln(a);
k:=1;
for i:=1 to length(a)-1 do
if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i];
for i:=1 to k do
 for j:=2 to k do
 if length (b[j])<length (b[j-1])then begin
temp:=b[j];
b[j]:=b[j-1];
b[j-1]:=temp;
end;
for i:=1 to k do
write(b[i],' ');
readln;
end.